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ABSTRACT 





ABSTRACT 


PROGRAM DZTEE MEASURES THE TIME REQUIRED AND GAP 
SIZES PRODUCED BY THE TMO3-TE16/TU77 MAGTAPE 
DRIVE/SLAVE. 


THE TEST WILL CHECK BOTH THE LOGIC GENERATED 
a DELAYS, AND THE DISTANCES TRAVELED BY THE 


ACTUAL TAPE SPEED MAY AI SO GE CHECKED BY USING 
THE SPEED TESTS WITH AN 800 BPI SKEW TAPE. 


DEVICE ERRORS ARE CHECKED AND PRINTED AS THEY 
OCCUR. IF AN ERROR [S DATA RELATED(PARITY; ETUC) 
THEY ARE PRINTED AS SOFT ERRORS. 


IF A TIME CHECK IS OUT OF RANGE, IT IS PRINTED 
AS AK. OUT OF RANGE ERROR. 
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CHAPTER 1 
REQUIREMENTS 


PDP=11 FAMILY CENTRAL PROCESSOR WITH 4K MEMORY WITH UP TO 64 TMO3-TE16/TU77 
CONTROLLER/MAGTAPE STATIONS. 


1.: OPTIONAL EQUIPMENT USED 
1. NONE 


1.2 STORAGE 
PROGRAM LO%55 AND RUNS IN THE FIRST 4K OF MEMORY. 


1.3 PRELIMINARY PROGRAMS (TO ASSURE HARDWARE OPERATION? 


MAINDEC-11-DZTEA CONTROL LOGIC TEST(PART 1) 
MAINDEC=11-DZTEC BASIC FUNCTION TEST 
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LOADING AND STARTING PROCEDURE 


CHAPTER 2 
LOADING AND STARTING PROCEDURE 


2.0 LOAD & START PROCEMURE: 


LOAD PROGRAM USING 'HE ABSOLUTE LOADER 

LOAD ADDRESS = 20 

SET OPERATING SWITCHES SEE CHAPT 3 SWITCH SETTINGS 
PRESS START 


THE PROGRAM WILL THEN REQUEST THE FIRST BUS ADDRESS OF THE RHXX 
CONTROLLER, TMO3 DRIVES TO BE TESTED, TE16/TU77 SLAVES TO BE TESTED, 
AND IF SPEED TESTS ARE TO BE RUN. IN ADDITON TO EACH REQUEST A 
DEFAULT ANSWER WILL BE TYPED. TO INVOKE THE DEFAULT TYPE A 

CARRIAGE RETURN. 


THE REQUESTS & THEIR DEFAULTS ARE: 


TYPE FIRST arr ee OF CONTROLLER: 172440 
TYPE TMO3 DRIVE #'S TO BE TESTED:ALL 
FOR TMO3 DRIVE X-TYPE SLAVE #'S TO BE TESTED:ALL 
SPEED TESTS ?(YES/NO) :NO 
NOTES: 7 NOT REQUESTED IF DEFAULT TO DRIVE REQUEST 


IF MORE THAN 1 DRIVE OR SLAVE IS TO BE TESTED, TYPE 
*," BETWEEN EACH DRIVE OR SLAVE # TO BE TESTED. 


SPEED TESTS CAN & WILL ONLY BE RUN BY ANSWERING YES TO THE REQUEST. 

TYPE odes U (*U) TO DELETE LINE TYPED;TYPE '‘RUBOUT® TO DELETE LAST 
CHARACTER(S). 

PROGRAM WILL REPORT ERRORS, AND END OF PASS. 


2.1 RESTART PROCEDURF 


G 1 
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THE PROGRAM MAY BE RESTARTED USING START UP PARAMETERS AT ADDRESS 210. 


THE PROGRAM MAY ALSO BE RESTARTED BY TYPING A CONTROL C (“C). 
A *C RESTART WILL REQUEST PARAMETERS. 


NOTE: AFTER RESTARTING THE SWITCH REGISTER SHOULD 
BE SET TO PROGRAM SWITCH SETTINGS. IF 210 
IS LEFT AS THE SWITCH SETTING THE PROGRAM 
WILL SELECT & RUN TEST 10 ONLY. SEE SWITCH 
StTTINGS FOR EXPLANATION. 





2.2 AUTOMATIC MODE OPERATION 


IF THE PROGRAM IS LOADED AND RUN IN AUTOMATIC (CHAIN) MODE 

DEFAULT RESPONSES TO OPERATOR REQUESTS ARE USED, AND ALL AVAIL 

ABLE TMO3-TE16/TU77 COMBINATIONS ARE TESTED. ADDITIONALLY THE SOFTWARE 
SWR IS INVOKED WITH A SWITCH SETTING OF Q00000 IF LOADED VIA ACT11. 

NO OPERATOR INTERVENTION IS REQUIRED 


** EXCEPTION: IF LOADED VIA TMDP TMO3 DRIVE O TE16/TU77 SLAVE 0 IS 
NOT TESTED. 


**NOTE: IN OREDER TO CHANGE THE DEFAULT SETTING OF THE SOFTWARE 
SWR, SET LOC: 176(SWREG:) TO THE DESIRED SETTING. 


F 
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CHAPTER 3 
SWITCH SETTINGS 


CONTROL : 


1) CONTROL G <*G>; 
SELECTS THE SOFTWARE SWR AND ALLOWS NEW SWITCH SETTINGS. 
THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= 
WHERE: XXXXXX IS THE OCTAL CONTENTS OF THE SOFTWARE SwR. 
AFTER THE '*NEW='* HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 
A) TYPE A NUMBER TO BE LOADED INTO THE SOFTWARE SwR. 
B) IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


CONTROL A <*A>; 
ALTERNATES USAGE OF THE SWR BETWEEN HARDWARE & SOFTWARE. 


CONTROL C <*C> 
RESTARTS PROGRAM AT 200 


CONTROL U <*U>; 
DELETES ALL CHARACTERS TYPED IN RESPONSE TO A REQUEST. 





2 


~ 


3 


~ 


4 


~~ 



















Sw15 
(100000) 


Sw14 
(040000) 
Sw13 
(020000) 
Sw11 
(004000) 


Sw10 
(002000) 


Sw09 

(001000) 
SWwO6 
(000100) 


Sw5-0 


NOTE : 


TEECO TMO3=-TE16/TU77 DFT 
TEEC.P11 22=AUG- 


79 08:40 


LOOP SUBTEST 
INHIBIT ERROR 
TYPEOUT 
INHIBIT SUB- 
TEST ITERATION 
INHIBIT 
FUNCTION TIME 
PUBL I CATION 


RING BELL 
ON ERROF 


CONT INUOUS 
CYCLE 


TEST SELECT 
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HALT ON ERROR THIS SWITCH WHEN SET WILL HALT THE 
PROCESSOR WHEN AN ERROR IS DETECTED. 


THE PC+2 AND PSW AT THE TIME OF _ THE 
ERROR IS STORED ON THE STACK. PRESSING 
CONTINUE WILL CAUSE THE ERROR [0 BE 
TYPED (IF SELECTED) AND FURTHER TESTING 
RESUMED. 


THIS SWITCH WHEN SET LOOPS THE CURRENT 
SUBTEST REGARDLESS OF ERROR CONDITION. 


THIS SWITCH WHEN SET INHIBITS ERROR 
TYPEOUT. 


THIS SWITCH WHEN SET CAUSES EACH SUBTEST 
TO BE EXECUTED ONLY ONCE. 


THIS SWITCH WHEN SET WILL INHIBIT THE 
PRINTING OF THE FUNCTION TIMES. (SEE 
CHAPTER 8.) 


THIS SWITCH WHEN SET WILL RING THE BELL 
ON THE TTY WHEN AN ERROR IS DETECTED. 


THIS SWITCH WHEN SET WILL CAUSE THE 
PROGRAM TO RUN CONTINUOUSLY UNTIL 
STOPPED BY THE OPERATOR. 


RUN SUBTEST SELECTED 


A TEST CAN ONLY BE SELECTED DURING STARTUP (OR RESTART). 


DO NOT INHIBIT SUBTEST ITERATIONS WHEN PROGRAM IS RUNNING. 


SEQ 0008 
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CHAPTER 4 
ERRORS 


TWO TYPES OF ERRORS ARE DETECTED BY THIS PROGRAM, HARDWARE ERRORS AND 
INCORECT FUNCTION TIMES. 


4.1 ERROR TYPEOUT FORMAT (HARDWARE): DATA RELATED ERRORS (IE: PARITY ERROR) 
ARE PRINTED AS SOFT ERRORS AND HAVE NO 
EFFECT ON TIME. 


TEST # XXXXXX DEVICE ERROR 


CS1 WE BA FC CS2 DS ER] 
AAAAAA BBBBBB CCCCCC DDDDDD EEEEEE FFFFFF GGGGGG 


WHERE 
XXXXXX = TEST NUMBER 
AAAAAA~IIIIII = CONTENTS OF TAPE REGISTER 172440-172454 


4.2 ERROR TYPEOUT FORMAT (FUNCTION TIME OUT OF RANGE) 
TEST # XXXXXX OUT OF RANGE ERROR 
RANGE = <AAAAAA-BBRBBB> ACTUAL = CCCCCC 
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CHAPTER 5 
SUBROUTINE ABSTRACTS 


at: «SCOPE 
THE SCOPE ROUTINE IS CALLED BY THE SCOPE (EMT) INSTRUCTION AT THE 
START OF EACH SUBTEST. THE .SCOPE ROUTINE PERFORMS THE FOLLOWING 
FUNCTIONS: 
1. LOADS RS WITH BASE ADDRESS 
2. PROVIDES CONTINUOUS LOOP <SW14> 
3. MOVES FUNCTION TIME INTO TABLE 
4. OUTPUTS LINE ITEM <SW10>=1 
5. DELAYS 350MS BEFORE STARTING TEST 
6. INIT'S DRIVE/SLAVE 
7. CLEARS THE ERROR FLAG (ERFLG) 
8. CHECK FOR CONTROL G (*G> 
THE ROUTINE MONITORS SW14, SW11, SW10, AND SwO07. 
5.2 PUBLISH 
THE PUBLISH oad IS CALLED FROM THE SCOPE ROUTINE IF SW10 IS EQUAL 


TO QO (PUBLISH TIME DOCUMENT). THE ROUTINE WILL PRINT A THE TIME 
RECORDED BY THE SUBTEST. 
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203 MT 


THE HLT ROUTINE IS CALLED BY THE HLT (TRAP) INSTRUCTION WHEN AN _ ERROR 
1S DETECTED. A HLT (TRAP) INSTRUCTION FORMATS THE ERROR INFORMATION 
~ Forest IN SEC 4.1. A HLT+1 (TRAP+1) FORMATS THE ERROR AS SHOWN IN 


SEQ 0011 
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CHAPTER 6 
MISCELLANEOUS 


6.1 STACK POINTER 
THE STACK POINTER IS INITAILLY SET TO 500. 


6.2 EXECUTION TIME 


WHEN SW11=1 (INHIBIT ITERATIONS) THE TIME REQUIRED IS 2 MIN. 
WHEN SW117=0 (ITERATE SUBTESTS) THE TIME REQUIRED IS 9 MIN. 
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1 SAMPLE TIME DOCUMENT 


CHAPTER 7 
PROGRAM DESCRIPTION 


TYPE FIRST ADDRESS OF CONTROLER: ng 
TYPE TMOS DRIVE #°S TO BE TESTED:A 


LO 
FOR TMO3 DRIVE O- TYPE SLAVE #'S 10. BE TESTED:ALL 0 


TAPE SPEED TESTS ONLY? (YES/NO) :NO 


PARRA SALASASASAR SALAS ALAS SAAS ASSESSES SERA SSR ARES SAAR ASSESS DS 


» 


een epee epee RR eR eee Reese 
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TMO3 DRIVE FUNCTION TIMES~ DRIVE # 0 SLAVE # 7 TE16 SER. # 5009 


FUNCTION 

WRI. — FROM BOT 
WRITE START 
WRITE SHUTDOWN 
WRITE SETTLEDOWN 
EAD FROM BOT 


READ SETTLEDOWN 
READ REV START 

READ REV SHUTDOWN 
READ REV SETTLEDOWN 


WRITE FILE MARK 


TIME (SPECIFICATION) 
RANGE=<176000-172000> 


RANGE=<016700-010700> 
RANGE 


01 8000 
RANGE=<1 04000-1 02000> 


TIME (ACTUAL) 


ACTUAL=103990 
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7.1.1 SAMPLE TIME DOCUMENT FOR TAPE SPEED TESTS 


TYPE FIRST ADDRESS OF CONTROLLER 172440: 

TYPE TMO3 DRIVE #'S TO BE TESTED:ALL 0 

FOR TMO3 DRIVE O= TYPE SLAVE ¥s TO BE TESTED:ALL 7 
SPEED TESTS ONLY? (YES/NO):NO Y 


-PRRRRERSASASASSALSE SA SASASASASARERAARARARARA RASA RRA RASA SARS ASSES DDS 


*TMO3 DRIVE FUNCTION TIMES= DRIVE # O SLAVE # 7 TE16 SERIAL # 5009 


ae 

*FUNCTION TIME (SPECIFICATION) TIME (ACTUAL) 
*TAPE SPEED FWD RANGE =<022700-021700> ACTUAL =022500 
*TAPE SPEED REV RANGE =<022700-021700> ACTUAL =022500 
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7.2 TEST SEQUENCE WITH RELATED ADJUSTMENTS AND ASSOCIATED HARDWARE 
TEST NO. /NAME RELATED ADJUSTMENTS ASSOCIATED HARDWARE 


WRITE FROM BOT *NONE *M8931/M8940 ROM*M8933 ACCL CNTR 
WRITE START 

WRITE SHUTDOWN 

WRITE SETTLEDOWN *M8916/M8940 (TU77) SETTLEDOWN O 
READ FROM BOT | *M8931/M8940 ROM*M8933 ACCL CNTR 
READ START 

READ SHUTDOWN 


. READ SETTLEDOWN *M8916/M8940 (TU77) SETTLEDOWN O 


READ REVERSE START *M8931/M8940 ROM*M8933 ACCL CNTR 


READ REVERSE SHUTDOWN 


READ REVERSE SETTLEDOWN *M8916/M8940 (TU77) SETTLEDOWN O 


TURN AROUND F=R *M8931/M8940 ROM*M8933 ACCL CNTR 


. TURN AROUND R-F 


GAP SIZE=STOP HALF *FWRD/REV SPEED-START/STOP-RAMPS 


- GAP SIZE-START HALF *SAME AS IN TEST 16 


GAP SIZE INTERRECORD *FWD/REV SPEED 
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21. 


2e. 


23. 


24. 


23. 


26. 


27. 


*eee «NOTE: 


GAP CONSISTENCY 


DATA TIME 800 BPI 


DATA TIME 1600 BPI 


ERASE GAP TIME 


WRITE FILE MARK 


TAPE SPEED-F ORWARD 


TAPE SPEED-REVERSE 


IF TIME PROBLEMS APPEAR IN 11 THRU T25, RUN TAPE SPEED TESTS FIRSTe*xxx** 


MACY11 30A(1052) 


at 
22-AUG=79 09:00 PAGE 16 


PAGE 14 
*SAME AS IN TEST 16 


*NONE 


*FWD SPEED 


*REVERSE SPEED 


TEST 26 & 27 REQUIRE AN 800 BPI SKEW TAPE 








SEQ 0016 


*WRITE CLOCK 


*CAPSTAN SERVO LOOP 


*CAPSTAN SERVO LOOP 
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‘> SUBTEST DESCRIPTIONS: 


THE FIRST THIRTEEN (13) TESTS (T1 = 115)_ARE ge} OF THE 
ROM CIRCUITS IN THE TE16 (M8931/M8940), THE ACCL COUNTER IN_THE 
TMO3 (M8933), AND THE SETTLEDOWN ONE SHOT (M8916 /MBO40 (TU77)). 


T1. WRITE FROM BOT: 


THIS TEST WILL MEASURE ACCELLERATION DELAY REQUIRED TO 
MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
FROM DEAD STGP AT BOT BEFORE STARTING TO TRANSFER DATA. 


1. ASSURE TAPE IS STOPPED AT BOT. 
2. ISSUE A WRITE COMMAND 

3. MONITOR BIT 15 OF TC (ACCL) 

¢° a3 FROM GO TO ACCL RESET IS BOT DELAY 


T2. WRITE STAR7: 


THIS TEST WILL MEASURE ACCELLERATION DELAY JUST AS IN 
sales a THE TIME WILL BE LESS WHEN NOT STARTING 


1. LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
2. ISSUE A WRITE COMMAND 

3. MONITOR BIT 15 OF TC (ACCL) 

¢ Hin 3 FROM GO TO RESET OF ACCL IS START DELAY 


T3. WRITE SHUTDOWN: 
THIS TEST WILL MEASURE THE TIME FROM EOR (LAST CHARACTER 


WRITTEN ON TAPE) TO THE START OF SETTLEDOWN TIME. THIS 
ASSURES, IN PART, A PROPER INTERROCORD GAP. 


- ‘LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
- ISSUE A WRITE COMMAND. 

MONITOR FRAME COUNTER AND BIT 4 OF DS (SDWN) 

TIME FROM FC=0 TO ASSERTION OF SDWN IS 

THE SHUTDOWN TIME. 

- STOP 


Ww fwn 
ee 
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T4. WRITE SETTLEDOWN: 


THIS TEST WILL MEASURE THE SLOWDOWN TIME. THE TIME 


FROM THE START OF SLOWDOWN UNTIL THE TAPE SHOULD 


BE STOPPED. THIS IS A PART OF THE GAP TIMING IN LOGIC. 
THE MECHANICAL POSITIONING OF THE TAPE IN THE GAP DISTANCE 


WILL BE MEASURED IN A LATER TEST. 


- ISSUE A WRITE C 

MONITOR BIT 4 OF DS (SDWN) 

. TIME FROM SET OF SDWN TO RESET OF SDWN IS THE 
a DELAY 


Swr- 


T5. READ FROM BOT 


THIS MEASUREMENT IS MADE EXACTLY AS THE WRITE 
MEASUREMENT IN T1. USE THE SAME RECORD THAT WAS 
WRITTEN IN T1. 


REWIND TO BOT 
READ FORWARD 1 RECORD. 


MONITOR Bil 15 OF TC (ACCL) 
4a FROM GO TO ACCL IS BOT DELAY 


AWS wWwr- 





. LEAVE TAPE AT ITS as POSITION. ASSURE THAT IT IS STOPPED 


ASSURE TAPE HAS HAD TIME TO COME TO A COMPLETE STOP 
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T6. READ START 
THIS TEST MEASURES THE SAME DELAY AS IN Te. 
WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED. 
ISSUE A READ FORWARD OF THE RECORD WRITTEN IN STEP 1. 


MONITOR BIT 15 OF TC (ACCL) 
fa. 3 FROM GO TO RESET OF ACCL IS START DELAY 


















We wr- 


T7. READ SHUTDOWN: 


THIS TEST MEASURES THE SAME DELAY AS IN T3. 


1. WRITE 1 RECORD, THEN BACKSPACE OVER is ASSURE TAPE IS STOPPED. 
2. READ FORWARD THE RECORD WRITTEN IN STEP 1. 

3. MONITOR FRAME COUNT AND BIT 4 OF DS (SDWN). 

4. TIME FROM FC=RECORD SIZE (LAST FRAME READ) TO SOWN=1 

. ion SHUTDOWN TIME. 


T10. READ SETTLEDOWN: 
THIS TEST MEASURES THE SAME DELAY AS IN 14, 
WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED. 


: 
2. READ FORWARD THE RECOPD WRITTEN IN STEP 1 
MONITOR BIT 4 OF DS (SDWN) 
5 







TIME FROM SET OF SDWN T9 RESET OF SDWN IS THE 
paces DELAY. 


H 
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T11. READ REVERSE START: 


THIS TEST WILL MEASURE THE START DELAY IN THE REVERSE 
DIRECTION. 


WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 

READ REVERSE THE RECORD WRITTEN IN STEP 1. 

MONITOR BIT 15 OF TC (ACCL) 

ae FROM GO TO RESET OF ACCL IS THE START TIME 


T12. READ REVERSE SHUTDOWN 


THIS TEST WILL MEASURE THE READ SHUTDOWN IN THE REVERSE 
DIRECTION. 


WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 

READ REVERSE THE RECORD wy He - STEP 1. 

MONITOR FRAME COUNTER AND BIT 4 OF DS (SDWN). 

TIME FROM FC=RECORD SIZE (LAST FRAME READ) TO SDWN=1 
thy. READ REVERSE SHUTDOWN TIME. 


113. READ REVERSE SETTLEDOWN: 


THIS TEST WILL MEASURE THE READ SETTLEDOWN IN THE REVERSE 
DIRECTION. 


1. WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 

2. READ REVERSE THE RECORD WRITTEN IN STEP 1. 

3. MONITOR BIT 4 OF DS (SDWN) 

4. TIME FROM SET OF SDWN TO RESET OF SDWN IS THE 
; — DELAY 


T14. TURN AROUND DELAY-FORWARD TO REVERSE 


THIS TEST WILL MEASURE THE TIME REQUIRED FOR THE TAPE 
TO CHANGE DIRECTION. 


LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
ISSUE A WRITE FORWARD OF AT LEAST 20 FRAMES 

MONITOR BIT 7 OF DS (DRY) 

WHEN DRY IS ASSERTED (EOR), IMMEDIATELY ISSUE A 

READ REVERSE OF THAT RECORD. 

MONITOR BIT 15 OF TC (ACCL) 

TIME FROM GO OF READ REVERSE TO RESET OF ACCL IS 

io TURNAROUND TIME. 
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T15. TURN AROUND DELAY=REVERSE TO FORWARD 


THIS TEST WILL MEASURE THE TIME AS IN 114, BUT IN THE 
OPPOSITE DIRECTION. 


WRITE 1 RECORD. 

ASSURE TAPE IS STOPPED 

READ REVERSE 

MONITOR DRY (BIT 7 OF DS) 

WHEN DRY = 1, ISSUE A > FORWARD 

MONITOR ACCL (BIT 15 OF TC) 

Fad FROM GO FORWARD To ACCL = 1 IS THE TURN AROUND TIME. 
STOP. 


CONAWUS WN 
2 2 2 BS ee 


J 
CZTEECO TMO3-TE16/TU77 DFT MACY11 30A(1052) 22-AUG=79 09:00 PAGE 22 


C2TEEC.P11 


22-AUG~79 08:40 
TMO3 DRIVE FUNCTION TIMER 


GAP MEASUREMENTS: 
THE PREVIOUS THIRTEEN (13) TESTS WERE MEASUREMENTS OF LOGIC 


DELAYS PERFORMED BY THE TMO3 OR TE16/TU77_IN ORDER TO uate” FOR 


CCELERA 
THE DESIRED INTEROCORD GAP (.6 INCHES). THIS TEST, HOWEVER, 
WILL MEASURE THE PHYSICAL SIZE OF THE INTERCORD GAP THAT 
EXISTS ON TAPE AS A RESULT OF THE START/STOP TIMES OF 
THE CAPSTAN ITSELF. BECAUSE THE INTERRCORD GAP IS 
erie te BY TWO ACTIONS, THE START OF MOTION AND THE 
STOP OF MOTION IT IS NECESSARY TO MAKE TWO SEPERATE 
MEASUREMENTS. A THIRD MEASUREMENT, MADE ON THE FLY, OF 
THE ENTIRE LENGTH OF THE GAP WILL ALSO BE MADE. 


T16. GAP SIZE (STOP HALF) 


THIS TEST WILL MEASURE THE DISTANCE TRAVLED BY THE TAPE 
IN A STOP CYCLE. IN OTHER WORDS, THE DISTANCE INTO THE IRG. 


1. WRITE 1 RECORD. 
- ASSURE TAPE IS STOPPED. 
- ISSUE A READ REVERSE OVER THE RECORD 


a Lt FROM GO=1 TO FC=1 IS THE LENGTH OF THE GAP 


T17. GAP SIZE (START HALF) 


THIS TEST WILL MEASURE THE DISTANCE OF TAPE TRAVEL DURING START UP. 
WRITE 1 READ FORWARD REVERSE OVER IT, ASSURE TAPE IS STOPPED. 


: 
2. ISSUE A READ F 

3. MONITOR FC FOR FC=1 

a in FROM GO=1 TO FC=1 IS START DISTANCE 


T20. GAP SIZE (INTERRECORD) 


THIS TEST WILL MEASURE THE ENTIRE LENGTH OF ys * IRG ON 
THE FLG. THE TIME VALUE OF THIS TEST S D NOT BE 
EQUAL TO A SUMMATION OF T16 AND 117 DUE TO THE FACT THAT 
THE ACCELLERATION AND DECELLERATION CURVES ARE NOT IN 
EFFECT. THE VALUE HERE SHOULD ACTUALLY BE LESS THAN THE 
SUM OF T16 AND T17. 


WRITE 2 RECORDS. 

READ REVERSE OVER_THE SECOND RECORD 

MONITOR DRY (BIT 7 OF DS) 

WHEN DRY = 1, ISSUE A SECOND READ REVERSE 

MONITOR FRAME COUNT 

TIME FROM GO=1 OF SECOND READ REVERSE TO FC=1 IS THE 
“ae OF THE GAP. 


N ABNSWM 
. . . . © 
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2 
3 
: MONITOR THE FRAME COUNT FOR THE FIRST FRAME READ (FC = 1) 
fe 


SEQ 0022 


K 2 
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T21. GAP CONSISTENCY: 


NOW THAT WE HAVE ESTABLISHED THAT THE INTERRCORD 
GAP _IS THE ook eth SIZE, LET US cota ime 


OF THE GAP UNDER VARIOUS COMMAND 

BY WRITING A SERIES OF RECORDS, EACH WITH A DIFFERENT 

el BETWEEN EXECUTION, WE CAN ESTABLISH THE CONSISTENCY 
THE GAPS BY READING THESE ae AND MONITORING 

THEIR INTERRECORD GAPS, ON THE FLY 


- REWIND - TO BOT. 

WRITE ONE (1) RECORD TO GET TAPE OFF BOT 
WRITE SIXTEEN (16) RECORDS WITH A PROGRESSIVE DELAY 
OF FROM 0 TO 16 MILLISECONDS (APPROX) BETWEEN COMMANDS. 
BACKSPACE 16 pS we AND ALLOW THE TAPE TO STOP. 
READ FORWARD (NON-STOP) *~ — 16 RECORDS, EACH 
TIME MONITORING THE TIME FROM THE END OF RECORD (DRY 
UNTIL THE FRAME COUNT NEXT GOES FROM 0 TO 1 (FC=1). 
6. THE TIMES FROM DRY TO FC=1 IS THE GAP TIME AND IT 
SHOULD REMAIN CONSISTANT FOR ALL RECORDS. 


7. STOP 
** (SEE GTIMTBL IN LISTING FOR GAP TIMES)** 


Ws Wr 
oe . . . 


T22. DATA TIME AT 800 BPI: 


THIS TEST WILL ae os A: TIME REQUIRED TO WRITE 
ONE (1) INCH OF TAPE AT 800 BPI. 

BY WRITING A RECORD OF ENOUGH FRAMES TO MOVE 

THE TAPE 1 INCH (800 FRAMES), DATA RATE 

CAN BE VARIFIED. 


1. REWIND TO BOT AND ALLOW TAPE TO STOP 

2. WRITE A RECORD AT_800 BPI. 

3. MONITOR DRY (BIT 7 OF DS) FOR EACH RECORD 

4. THE TIME FROM FC=FC+1 TO DRY WILL BE THE TIME REQUIRED 
; . INCH AT THE SELECTED DENSITY 


723. DATA TIME AT 1600 BPI (PE) 
REPEAT STEPS 1 THRU 5 AT 1600 BPi. 


ss 
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T24. ERASE: 


THE ERASE COMMAND WILL CAUSE AN AREA OF THE THREE (3) 
INCHES TO BE DC ERASED_IN THE FORWARD DIRECTION. 
THIS TEST WILL ASSURE THAT THE PROPER DISTANCE IS 


ERASED. 

1. LEAVE TAPE AT ITS PRESENT POSITION. 

2. ISSUE AN ERASE COMMAND. 

3. MONITOR at on ae 7 OF DS) 

4. THE TIME FROM GO TO DRY WILL BE THE TIME 


REQUIRED 10 ERASE 3 INCHES OF TAPE AND WILL 
— THE DISTANCE. DENSITY IS NOT A FACTOR. 


Vw 


T25. TAPE MARK: 


THIS TEST IS ALSO A CHECK ON THE THREE (3) ~— GAP. 
WHEN A TAPE MARK IS WRITTEN, A_3_ INCH GAP I 
CREATED BEFORE DATA IS PUT ON TAPE. 


- LEAVE TAPE AT ITS PRESENT POSITION 
ISSUE A WRITE TAPE MARK COMMAND 

MONITOR DRY (BIT 7 OF DS) 

THE TIME FROM GO TO DRY WILL BE THE TIME 
REQUIRED TO WRITE THE TM RECORD PLUS THE 
cm GAP. 


Rwr- 
. . . 
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T26. TAPE SPEED FORWARD: 


THIS TEST REQUIRES THE USE OF AN 800 BPI SKEW TAPE! 
THE OPERATOR WILL BE REQUIRED TO MOUNT THE SKEW TAPE 
BEF ORE EXECUTING THE TEST. THE SKEW TAPE IS THE ONLY 
WAY TO ASSURE THAT TAPE IS MOVING AT THE PROPER SPEED 
BECAUSE THE FREQUENCY OF FRAMES ON A SKEW TAPE IS 
GUARANTEED TO BE ACCURATE. 


- ASSURE TAPE IS STOPPED AT BOT. 
- ISSUE A READ FORWARD O0C10)" NORMAL ) 


. 6400(1 

. _ FROM FC = 800 TO Ay <1 20600 IS THE TIME REQUIRED 
TAPE TO TRAVEL 32 | 

DIVIDE THE TIME FOR $2" INCHES BY 32. 

THE RESULT IS AN AVERAGE SPEED FOR 1 INCH. 


NO MmSwr 
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T27. TAPE SPEED REVERSE: 


THIS TEST IS THE SAME AS TEST 31, BUT SPEED IS 
MEASURED IN THE REVERSE DIRECTION. 


1. ADVANCE TAPE OFF OF BOT. 
2. ISSUE A READ REVERSE. 
z wed STEPS 3 THRU 6 IN THE REVERSE DIRECTION. 


N 
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«LIST. BIN,LOC,SEQ 
NLIST MC 


"NLIST TOC 
“LIST _ ME 


E ABS,AMA 
SCPVEC, $CPREG, $CATCH $TYPE, .$ACT11, .SEOP, $CHAIN 
CZTEECO TMO3-TE16/TU?7 DFT 


-SBTTL_ S$ 
; LOADING AND STARTING PROCEDURE 
PROGRAM 


: L NG ABS LOADER 
: LOAD ADDRESS 200 

: SET SWITCH OPTIONS 

: PRESS START 


RESTART PROCEDURE 

: LOAD ADDRESS 210 

: SET SWITCH OPTIONS 
PRESS START 


; SWITCH REGISTER SWITCH ASSIGNMENTS 
SW15= 100000 HALT ON ERROR 
;LOOP SUBTEST 
S INHIBIT ERROR TYPE OUT 
; INH'BIT SUBTEST ITERATION 
S INHIBIT PUBLISHING TIME SPECIFICATION 
[RING BELL ON ERROR 


:NOT_USED 
; CONTINUOUS, CYCLE 
swoo UN TEST SELECTED 
rE <SW15-SWOO> ="177777 AT STARTUP USE SOF TWARE 
SWITCH REGISTER. . 


; CONSOLE COMMANDS 

; CONTROL C ;RESTART PROGRAM (SAME AS START @ 200) 
CONTROL G :SET NEW Ag SWITCH REGISTER 
CONTROL U DELETE LINE TYPED 

RUBOUT (DELETE) “DELETE LAST CHAR TYPED 


;GENERAL REGISTER USAGE: 
: RO=ADDRESS OF ‘FC’ REGISTER (SET BY SCOPE) 
agp toy OF "DS* REGISTER (SET BY SCOPE) 
a AN PC FROM TIMER (SET BY EACH TEST) 
=INDEX INDICATING PREVIOUS OCEAN POLARITY (SET BY TIMER) 
Rae CONTAINS ‘TICK' COUNT WHEN TIMER IS RUNNING (SET BY TIMER) 
R5=ADDRESS OF CS1 (SET BY SCOPE) 


ona DEF INITIONS 
5 eae SAVE REGISTERS ON THE STACK 


RESTORE 
PC, .RESTORE RESTORE REGISTERS FROM THE STACK 
RESTORE 


38 
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MACRO DEFINITIONS 
JSR PC,. INPUT 
INPUT 


ENDM 
an PC REWIND 
99$° 


BVS 

-ENDM REWIND 
«MACRO TIMEON 

_ JSR PC,TIMON 
ENDM 


“MACRO TIMCHK 
MP TIMER(R3) 


~ENDM 

«MACRO SETGO 
INC (R5) 
. ENDM 


SEQ 0027 
GET USER INPUT 


REWIND SLAVE 
;BRANCH IF ERROR ON REWIND 


; TURN TIMER ON 


;GO TO TIMER & RETURN VIA R2 


SET ‘GO* BIT 


-SBTTL REGISTER ASSIGNMENTS 
7 ;DEFINITIONS AND REGISTER ASSIGNMENTS 


aw, m* gist ASSIGNMENTS 


TPB= 177566 


s;PROCESSER STATUS WORD 
2 STACK LIMIT REGISTER Wiad 7 | a 


PROGRAM INTERRUPT REQ 1/45) 
;-MICR A eB REGISTER (11745) 
: ¢KEYBOARD CSR 


; KEYBOARD DATA BUFFER REGISTER 
7-TELEPRINTER CSR 
7; TELEPRINTER DATA BUFFER REGISTER 


Pe ERREC= 


C=4 

SVEC=10 
TBITVEC=14 
TRIVEC=14 
BPTVEC=14 
IOTVEC= 20 


TKVEC= 60 
TPVEC=64 


: sADDRESS 


; ;ADDRESS 
; ADDRESS 


ERROR VECTOR 

RESERVED INST. TRAP VECTOR 
‘T* BIT TRAP VECTOR 
*TRACE' TRAP VECTOR 
*BREAKPOINT' TRAP VECTOR 
IOT TRAP VECT 

POWER FAIL TRAP VECTOR 

EMT VECTOR 

TRAP VECTOR 


TTY KEYBOARD INT. VECTOR 
TTY PRINTER INTERRUPT VECTOR 


man 
mn 
aa 


0 TMO3-T 
-P11 


E16/TU77 DFT 
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REGISTER ASSIGNMENTS 


PARVEC= 114 ; ADDRESS OF MA/MF PARITY ERROR VECTOR 
PIRVEC=240 ;;ADDRESS OF PIRQ VECTOR 

FPEVEC=244 ; ADDRESS OF FLOATING POINT INT. VECTOR 
MMVEC=250 ; ADDRESS OF MEM MGMT ERROR TRAP VECTOR 


SEQ 0028 
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;RH,TMO3-TE16/TU77 REGISTERS 
172440 TMCS1= 172440 


3; TMO3-TE16/TU77 INDEX VALUES 
CS1= 00 


CZ 
C2 


;CONTROL STATUS #1 
ha “gre REGISTER 
1 ;CONTROL STATUS #2 
: 


Oo 


DRIVE STATUS 

;ERROR REG #1 
22 
24 
26 E 
30 ; SERIAL NUMBER REGISTER 
32 TAPE CONTROL REG 
TMO3-TE16/TU77 REGISTER BITS 
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55 
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075027 
000100 


002000 
010000 
040000 


001700 
000320 
000000 


000400 
001000 


MACY11 30A(1052) 
TMO3-TE16/TU77 REGISTER BITS 


ATA= 
;RHER-ER(R5) 
ILF= 


RHTC-TC(RS) 
NORM 


E 
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ILR= 


FMT= 


S= 
HRDERR= 


; RHMR-MR (R5) 


OSC= 


;RHDT=DT (RS) 
SPR= 


CH7= 
TAP= 


100 


000400 
001000 


;HARDERROR BITS 


SEQ 0030 


F 
0 ais Pet ak DFT MACY11 30A(1052) 22=AUG=79 09:00 PAGE 31 


-P11 22-AUG=79 08:40 TMO3-TE16/TU77 REGISTER BITS SEQ 0031 
002300 PE1600= 002300 
100000 ACCL= 100000 


sutechtinag“t EQUATES 


104400 TRAP 
104000 SCOPE = EMT 
000004 TYPE=  IOT 
ee ee EQUATES 
006274 =INIT ;OUTPUT BUFFER STARTS AT BEG OF PROGRAM 
177400 PRMCNT= -256. ;FRAME COUNT 
177600 WRDCNT= -128. ;WORD COUNT 


000001 =] sASCII CODE FOR CONTROL A (“A) 
000003 ENTRLC= 3 sASCII CODE FOR CONTROL C (“C) 
000007 CNTRLG= 7 sASCII CODE FOR CONTROL G (“*G) 
000011 HT= 11 sASCII CODE FOR HORIZONTAL TAB 
000012 LF= 12 ASCII CODE FOR LINE FEED 
000015 CR= 15 sASCII CODE FOR CARRIAGE RETURN 
000017 CNTRLO= 17 sASCII CODE FOR CONTROL O (“*0O) 
000025 CNTRLU= 25 ASCII CODE FOR CONTROL U (“U) 


Ww 


> * 
WOBNAUSWN—OO 
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-P11 22-AUG-79 08:40 TMO3=TE16/TU77 REGISTER BITS SEQ 0032 
; SETUP TRAP VECTORS 
000014 =TBITVEC 
000014 000016 “WORD +2 SET ‘T* TRAP TO TIMER ROUTINE 
000016 000000 . WORD HALT “PRIORITY LEVEL 7 
000020 002636 . WORD . TYPE :SET IOT TRAP TO . TYPE ROUTINE 
000022 000000 «WORD Q :PRIOTITY LEVEL oO 
000024 000026 . WORD PFVEC+2 * POWER FAIL TRAP TO HALT 
900026 000000 -WORD HALT TAT PFVEC+2 
000030 004516 . WORD . SCOPE ;SET EMT TRAP TO .SCOPE ROUTINE 
000032 000340 ; «WORD 340 sPRIORITY LEVEL 7 
000034 004252 . WORD HLT ;SET TRAP TRAP TO .HLT ROUTINE 
000036 000340 -WORD 340 ;PRIORITY LEVEL 7 
ACT11 HOOK **xxextiann 
000040 $SVPC=. : SAVE CURRENT LOCATION CTR 
000042 =42 
000042 000000 WORD 0 
000046 -=46 
000046 013504 . WORD SENDAD ;SET LOCATION 46 
000052 -=52 
000052 000000 -WORD OQ ;SET LOCATION 52 = 0 
000040 -=$SVPC ;RESTORE LOCATION CIR 
000060 .=TKVEC 
000060 004126 . WORD TKISR 
000062 000200 -WORD 200 
;SOFTWARE SWITCH REGISTER LOC. 176 
000176 ~=176 
000176 000000 SWREG: .WORD 0 ;SOFTWARE SWITCH REGISTER 
000200 -=200 
000200 Renata 006274 Je 10 aF INIT :GO TC START OF PROGRAM 
000210 000137 007414 JMP AARSTRT sRESTART ADDRESS 
000500 -=500 
000600 STKPTR= 600 ZSTACK 
001000 -=1000 
;PROGRAM TAGS 
001000 177570 SWR : 177570 ; SWITCH REGISTER 
001002 000000 SCPADR: .WORD 0 
001004 000 DRVNUM : “BYTE 0 ;TMO3 DRIVE UNDER TEST 
001005 000 SLVNUM: .BYTE 0 :TE16/TU77 SLAVE UNDER TEST 
001006 000000 SLVPTR: .WORD 0 ‘POINTER TO SLAVE TABLE (SLVTBL) BELOW 
001010 177440 TMBASE: .WORD TMCS] BASE ADDRESS OF TMO3-TE16/TU77 REGISTERS 
001012 OSCTIM: .WORD 0 ;US/TICK (56/80 FOR TE16/TU77) 
001014 000000 GAPDEL WORD 0 sTICKS/MS (18/6 FOR TE16/TU77) 
001016 000000 ATIME: .WORD 0 ;CONTAINS ‘TICK" COUNT 
001020 000020 ATIMTBL:.BLKW 16. 7; EACH ENTRY CONTAINS i FOR FUNCTION 
TENTRIES ARE MADE By * SCOPE* ROUTINE 
001060 000020 GAPTBL: .BLKW 16. ; TIMES RECORDED BY ‘GAP CONSISTANCY' TEST 
001120 000000 DELTIM: .WORD 0 *VARIBLE DELAY 
001122 000000 OCTALO: .WORD QO 
001124 000 GAP: -BYTE 0 ;CONTAINS GAP # (USED FOR TST 021) 
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TMO3=TE16/TU77 REGISTER BITS SEQ 0033 
0 Nt ly COUNT 
0 TEST 
0 ERROR F LAG 
.BYTE 0 0/1 = DO NOT/DO SKEW (SPEED) TESTS 
0 : PROGRAM FLAG 
5 UNIT FOUND INDICATOR 
0 a. ot PASS COUNT 
0 : = YES/NO. 
0 ‘Ovi = TE16/TU7/ 
6 sRESERVE SPACE FCR CONVERTED DIGITS 
6 ; TERMINATOR 
8. 3A 0/-1 = DRIVE NOT TO BE/TO BE TESTED 
64. :A 0/-1 = SLAVE NOT TO BE/TO BE TESTED 
72. s TELETYPE INPUT BUFFER 
+ ee *MISCELLANEOUS ASCII CHARACTERS 
‘5* 
" 
">" <HT> 
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-SBTTL _TE16 TIME SPECIFICATION TABLE 
;THE BELOW TABLE CONTAINS THE TE16 SPECIFIED FUNCTION TIMES IN TENS OF 
:MICROCESONDS. NOTE THAT WHEN TIMES ARE TYPED THAT THEY ARE TYPED ” 
MI CROSECONDS (BY APPENDING A 0). 


22-AUG-79 08:4 


; .WORD MAX,MIN :TIME IN MS FUNCTION TEST # 
001424 TE16TTBL:.WORD 0,0 SPARE 
001430 036050 035230 “WORD 15400.,15000. :154.0-150.0 | WRITE FROM BOT TSTOO1 
1434 001 001546 “WORD 00950.,00870.  :9.5- WRITE START TST002 
001440 001522 001356 “WORD 00850.,00750.  :8.9-8.5 WRITE SHUTDOWN TSTOO3 
001444 002506 001332 “WORD 061350..00730. :13.5-7.3 WRITE STLDOWN TSTO04 
001450 007164 006344 “WORD 03700..03300. :37.0-33.0 READ FROM BOT TSTOOS 
001454 000500 000360 “WORD 00320.;00240.  :3.2=2.4 READ START TST006 
001460 000632 000454 “WORD 00410.,00300. :4.1-3.00 READ SHUTDOWN TSTOO7 
1464 002506 001332 “WORD 01350.,00730. :13.5-7.3 READ SETTLEDOWN TSTO10 
001470 000500 000360 “WORD 00320. .002 3.2-2.4 RD REV START —‘TSTO11 
001474 000562 000512 “WORD 00370.,00330.  :3.7-3.3 RD REV SHTDWN -TSTO12 
001500 002506 001332 “WORD 01350.,00730. :13.5-7.3 RD REV. STLDWN TST013 
1504 003 002056 “WORD 01670..01070. :16.7-10.7 N RND DLY F-R TSTO14 
001510 003206 002056 “WORD 01670..01070. :16.7-10.7 TRN ND DLY R-F TSTO15 
001514 002412 001 “WORD 01299.°00950.  :12.9-9.5 GAP SIZE STOP TSTO16 
001520 002234 001522 “WORD 01180..00850. :11.8-8.5 GAP SIZE STRT TSTO1 
001524 002626 002354 “WORD 01430..01260.  :14.3-12.6 GAP SIZE INTER TSTO20 
1530 002570 002234 “WORD 01400..01180. :14.0-11.8 CONSISANCY TST021 
001534 004540 004230 “WORD  02400..02200.  :24.0-22.0 DAT TIME 8008PI1 TSTO22 
001540 004716 00455 “WORD 02510..02410. :25.1-24.1 AT TIME 1600PE TSTO23 
001544 023564 023110 “WORD 10100..09 :101.0-98.0 SE $1024 
001550 024249 023730 “WORD 10400..102 7104.0-102.0 WRT FILE MARK  TST025 
001554 004336 17 “WORD 02270..02170. :22.7-21. TAPE SPEED FWD TST026 
001560 004336 004172 “WORD 02270.:02170. :22.7-21.7 TAPE SPEED REV TSTO27 
;NOTE: TEST 26 AND 27 REQUIRE PRERECORDED 8008PI SKEW TAPE. 
.SBTTL TE16 GAP TIME SPECIFICATION TABLE 
THIS TABLE CONTAINS THE TE16 GAP SIZES (IN TENS OF MICROSECONDS) rOR EACH 
‘OF THE 16. GAPS RECORDED BY THE GAP CONSISTANCY TEST (TSTO21). 
{NOTES GAP W'S ARE IN OCTAL. 
: .WORD MAX,MIN(10) :TIME IN MS(10) GAP # DELAY IN MS(10) 
001564 002602 002412 TE16GTBL:.WORD 01410..01290. :14.10-i2.9 GAP-0 0 MS 
001570 002652 0025 “WORD 01450..01350.  :14.5-13.5 GAP=1 1.0 MS 
001574 002734 002532 “WORD 01500..01370.  :15.0-13.7 GAP=2 2.0 MS 
1600 003016 002424 “WORD 01550..01300. :15.5-13.0 GAP=3 3.0 MS 
1604 003016 002304 “WORD 01550.:01220. :15.5-12.2 GAP-4 4.0 MS 
001610 002734 002176 “WORD 01500..01150. :15.0-11.5 GAP=5 5.0 MS 
001614 002652 002176 “WORD 01450..01150. :14.5-11.5 GAP=6 6.0 MS 
001620 002652 002176 “WORD 01450..01150. :14.5-11.5 GAP=7 7.0 MS 
001624 002570 002176 “WORD 01400..01150. :14.0-11.5 GAP-10 8.0 MS 
001630 002570 002176 “WORD 01400..01150. :14.0-11.5 GAP=11 9.0 MS 
001634 002570 002176 “WORD 01400..01150.  314.0-11.5 GAP=12 10.0 MS 
001640 002570 002176 “WORD 01400..01150. :14.0-11.5 GAP=13 11.1 MS 
001644 002570 002176 “WORD 01400..01150. :14.0-11.5 GAP=14 12.1 MS 
001650 002570 00217 “WORD 01400..01150.  :14.0-11.5 GAP=15 13.1 MS 
001654 002570 002176 "WORD 01400..01150.  314.0-11.5 GAP=16 14.1 MS 
1 002570 00217 “WORD 01400.:01150. :14.0-11.5 GAP=17 15.1 MS 


SEQ 0034 
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TU77 TIME SPECIFICATION TABLE 


-SBTTL TU77 TIME SPECIFICATION TABLE 
;THE BELOW TABLE CONTAINS THE TU7? SPECIFIED FUNCTION TIMES IN TENS OF 
;MICROCESONDS. NOTE THAT WHEN TIMES ARE TYPED THAT THEY ARE TYPED IN 
Caer (BY APPENDING A 0). 


: ; MAX ,MIN :TIME IN MS FUNCTION TEST # 
TU77TTBL:.WORD 0,0 7 SPARE 
.WORD 5510.,4985. 155.1-49.85 WRITE FROM BOT TSTOO1 
«WORD 00336. ,00304. 33.36-3.04 WRITE START TSTOO2 
“WORD 00230..00203.  :2.3-2.03 WRITE SHUTDOWN TSTOO3 
“WORD 01800..00975. :18.0-9.75 WRITE STLDOWN TSTO04 
"WORD 00717..00586.  :7.17-5.86 READ FROM BOT  TSTOOS 
"WORD 00073.,00055. :.73-.55 READ START TST006 
"WORD 00073..00055.  :.73-.55 READ SHUTDOWN TSTOO7 
“WORD 01800..00975. :18.0-9.75 READ SETTLEDOWN TSTO10 
“WORD 00073..00055. :0.73-0.55 RD REV START -TSTO11 
~WORD - ,00047. 70.65-0.47 RD REV SHTDWN TSTO12 
“WORD 01800..00975. :18.0-9.75 RD REV STLDWN TSTO13 
"WORD 01856..01030.  :18.56-10.3 TRN RND DLY F-R TSTO14 
“WORD 01864..01039. :18.64-10.39 | TRN RND DLY R=F TSTO15 
“WORD 0450..00357..  :4.50-3.57 GAP SIZE STOP TST016 
"WORD 0418..00325 14.18-3.25 GAP SIZE STRT TSTO17 
“WORD 0522. .0422. 15.22=4.22 GAP SIZE INTER TSTO20 
"WORD 0540..0417. 75.40-4.17 GAP CONSISANCY TST021 
“WORD 0845..07 78.45-7.96 DAT TIME 800BPI TSTO22 
“WORD 0862..0796. 18.62-7.9 DAT TIME 1600PE TST023 
“WORD 00.°03390.  :36.00-33.90 ERASE TST024 
“WORD 3710..3490. :37.10-34.90 WRT FILE MARK  TSTO25 
“WORD 00880.,00720.  :8.8-7.2 TAPE SPEED FWD TST026 
“WORD 00880..00720. :8.8-7.2 TAPE SPEED REV TST027 


;NOTE: TEST 26 AND 27 REQUIRE PRERECORDED gy SKEW TAPE. 
-SBTTL _TU77 GAP TIME SPECIFICATION T 


L ABLE 
;THIS TABLE CONTAINS [HE TU77 GAP SIZES (IN TENS OF inh FOR EACH 


SOF THE 16. GAPS RECORDED BY THE GAP CONSISTANCY TEST (TSTO21) 
:NOTE: GAP #'S ARE IN OCTAL. 


; . WORD 
TU77GTBL: 


- WORD 


MAX ,MIN(10) 
8208+ « Meee 


TIME IN MS(10) GAP # 


Se Pe Se Se Be Be Se Be Be Se Se Be Se Se Be Be 


a NOWW 


GAP-0 QMS 

GAP-1 0.24 MS 
GAP=-2 0.48 MS 
GAP-3 0.72 MS 
GAP-4 0.96 MS 
vAP-5 1.20 MS 
GAP-6 1.44 MS 
GAP-7 1.68 MS 
GAP-10 1.92 MS 
GAP=11 2.16 MS 
GAP=12 2.40 MS 
GAP-13 2.64 MS 
GAP-14 2.88 MS 
GAP-15 3.12 MS 
GAP-16 3.36 MS 
GAP-17 3.60 MS 


DELAY IN MS(10) 


SEQ 0035 


CZTEECO TMO3-TE16/TU77 DFT 
22-AUG-79 08:40 


CZTEEC.P11 


1448 002164 

1449 0021 

1450 002174 562 51 
1451 002 002506 001332 
1452 00 3206 002056 
1453 002210 003206 002056 
1454 002214 002412 001 
1455 002220 002234 001522 
456 002224 002626 002354 
1457 002230 002506 002234 
1458 0022 

1459 002240 


MACY11 30A(1052) 
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TIME SPECIFICATION TABLE 


-SBTTL TIME SPECIFICATION TABLE 
;THE BELOW TABLE WILL CONTAIN THE SPECIF 


ED FUNCTION TIMES IN TENS OF 


I 
SMICROCESONDS. NOTE THAT WHEN TIMES ARE TYPED THAT THEY ARE TYPED IN 


STTBL: 


STIMTBL:. 


;NOTE: TEST 26 AND 27 REQUIRE 


. SBTTL 
cm TABLE WILL CONTAIN THE GAP SIZES (IN TENS OF MICROSECONDS) FOR EACH 
THE 16. GAPS RECORDED BY THE GAP CONSISTANCY TEST (TSTO21). 


3 OF 


- WORD 


MAX MIN 


02400. ,022 
15109: -99600 


104 
02270. .02170. 
02270. 02170. 


:MICROSECONDS (BY APPENDING A 0). 
ORMAT IS 


: TIME IN M 


NV SI BSW RWW DOH 


ME WE MAW: = We 


. 
—s 
o 
—e 
So 
t 


~iwe 
e ~wRoe —Pfue « 
§i'wWwr twrt | coc 
ee ~we ee se 
WE: OfW: 
Wo + Ww 


o 7 . . 
gang 
Mm——0 03 —~ 


e re oe ee owes fiw Your 


nS 


7104. 
36° aif 


Ss 


Oo 


GAP TIME SPECIFICATION TABLE 


NOTE: GAP #°S ARE IN OCTAL. 


GTIMTBL:. 


ENDTBL: — 


MAX ,MIN(10) 

01380. ,01260. 
01450. ,01350. 
01490. ,01350. 
01480. ,01340. 
01400. ,.01200. 
01390. ,01100. 
01370. .01100. 
01370.,01100. 
01350. 01150. 
01340. 01150. 
01340. ,01150. 
01340. ,01150. 
01340. 01150. 
01340. 01150. 
01340. ,01150. 
01340. ,01150. 


a 


Dee Re Be Be Be Be Be Be Be Be Be Be Be Be Be Be 
ce ce ed eed ed ae ed cond ced ed od cand ed end end esd en 
WIWNIAINIANNNNNAWE BE BW 


MAIWMAAISIIVMIO OOO £SUIVIOS 


Oo 


FUNCTION 


WRITE FROM — 
WR 


DAT TIME 1600PE 
ERASE 
WRT FILE 


MARK 


TAPE SPEED FWD 
TAPE SPEED REV 


MS(10) GAP 5 


PRERECORDED S00BPI1 SKEW TAPE. 


° . e 7 o . 
leoleleleleleleleole) 
SSSSSBZEZTSE 

nn 


ZSBBSBBNNMNNGY 
ANNNAMDM 


2S S OMNOUEWN HO 
oO 


MEW Or « 
* © 
_——- 4 O00 


TEST # 


TSTOO1 


TSTO027 


DELAY IN MS(10) 
MS 


SEQ 0036 


CZTEECO TMO3-TE16/TU77 DFT 


CZTEEC.P11 


1507 


S& 


SUWUONAUSWN oO 


cme me ee ee ee a ed ed ed ed ed 
MAMMA 
NON) 2 3 SS So 


No— 


; 
1527 
1528 


ts ed ss Se 
he hk ik i bh yh hp hyd 
BSBIFAKANISS 


22-AUG-79 08:40 
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T HEADER POINTERS 


-SBTTL TEST HEADER POINTERS 
Be ee TABLE CONTAINS POINTERS TO FACH TEST'S DESCRIPTOR 


: «WORD A.TO000 
«WORD A.T001 
«WORD A.T002 
-WORD A.T003 
«WORD A.T004 
-WORD A.TO05 
-WORD A.T006 
«WORD A.1T007 
«WORD A.1010 
«WORD A.TQ11 
«WORD A.TO12 
«WORD A.1013 
«WORD A.1014 
«WORD A.1015 
-WORD A.1016 
«WORD A.T017 
-WORD A.T020 
-WORD A.T021 
-WORD A.T022 
«WORD A.1023 
«WORD A.T024 
«WORD A.T025 
-WORD A.1026 
«WORD A.1027 

TABLE OF TEST STARTING ADDRESSES 
-WORD TSTOOO 
-WORD TSTOQO1 
-WORD -TSTOO2 
-WORD TSTOO3 
-WORD TSTO04 
-WORD TSTOOS 
-WORD TSTO006 
«WORD TSTOQO7 
-WORD TSTO10 
-WORD TSTOQ11 
-WORD TSTO12 
-WORD TSTO13 
-WORD TST014 
«WORD TSi015 
-WORD TST016 
-WORD TST017 
-WORD TSTO20 
-WORD TST021 
-WORD TST022 
-WORD TST023 
«WORD TST024 
«WORD TSTO25 
-WORD TST026 
-WORD TSTO27 


SEQ 0037 


M 
0 TMO3-TE16/TU77 DFT MACY11 a hye + 22-AUG-79 09:00 PAGE 38 
-P11 22-AUG-79 08:40 T HEADER POINTERS 
TIB: «WORD 0 
ROUTINE TO LOAD SOFTWARE SWR 
GTSWR: CMP MSWREG, SWR ;BRANCH IF SOFTWARE SWR 
2$ sNOT_ INVOKED 
+ atte SAVE REGISTERS ON THE STACK 


ge F 
Mo 


ELF 
RW 


Sexe 


. GET USER INPUT 
001272 ‘$ EXIT IF FIRST CHAR IS <CR> 


PC, CNVTAO ;CONERT ASCII TO OCTAL 
176170 @40CTALO,aSWR SET NEW SWITCH REG CONTENTS 
: = 


KARAS 


myn 
oon 


-SBTTL PROGRAM we ge oft 


. SBTTL YPE SUBROUTINE 
;;ROUTINE TO TYPE ASCII MESSAGE, MESSAGE MUST TERMINATE WITH A O BYTE. 
33 THE ry ty WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
23CALL: YPE zA_TRAP TYPE INSTRUCTION 
ae MESADR IMESADR IS FIRST ADDRESS OF ASCIZ STRING 


3; TAGS USED BY THE TYPE ROUTINE BELOW 
$HT=11 ; HORIZONTAL TAB 

$NULL: .BYTE 3: ;CONTAINS NULL — TER 
$FILL: .BYTE 2 ;:CONTAINS # OF FILLER CHARACTERS 
STPFLG: .BYTE O 2 CONTAINS TELEPRINTER AVAILABLE sFLAG 

, 4377 = AVAIL/NOT AVAIL 
STKFLG: .BYTE 0O > CONTAINS KEYBOARD AVAILABLE FLAG 
$TPS: -WORD 177564 * TADDRESS OF TLEPRINTER STATUS me clsTEn 
STPB: -WORD 177566 : sADDRESS - TELEPRINTER DATA BUFFER 
SCHARCNT: .BYTE ;CONTAINS # OF CHARS TYPED 
SCNTRLO:.BYTE O >: CONTAINS CONTROL O CHAR (IF TYPED) 
SCRLF : ASCIZ <15><12> 


E 
RDSW: WOR 0 


. TYPE: RO,~(SP) 73SAVE RO 
MO @2(SP) .RO 3;GET MESSAGE ADDRESS 
062766 00000 #2 ,2(SP) ; ADJUST RETURN PC 
105037 $CNTRLO 


105737 : SCNTRLO ; BRANCH IF CONTROL 0(*0) WASN'T TYPED 
1410 BEQ TYPE2 
wr $CRLF : TYPE <CR><LF> 
TSTB RDSW 
TYPE3 
RDSwW 


PC 
(RO)+,~(SP) : PUSH CHARACTER TO.BE TYPED ONTO STACK 
TYPES ;BRANCH IF NOT THE TERMINATOR 

(SP)+ 7:POP TERMINATOR CHAR OFF THE STACK 


FOFERSS 


SSSSSSSEE 


pad Ad Ab hese eh ede pebe he hehe: 
SS 3aN 


BRS SRS 


SSSSuE 
SEESSSEE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1567 
} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ww 


? 
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1596 012600 TYPES: (SP)+,RO ; RESTORE RO 
1597 000002 R ; RETURN TO CALLER 


ieerie TYPES: 3 (SP) ; ;BRANCH IF HORIZONTAL TAB <HT> 


; TYPE CHARACTER 
3$: nis, tsp) : CHECK IF CHARACTER WAS A LINE FEED 
PE1 [BRANCH IF NOT LINE FEED 
37 SNULL. -(SP) IGET # OF FILLERS REQUIRED AND FILLER 
HARACTER. 


BEER S3e% 


1(SP) ae ee FILLERS REQ. COUNT 
3$ (CH IF NO MORE FILLERS ARE REQUIRED 
ew 7: TYPE FILLER CHARACTER 


SES8S8 


i 3zWAIT FOR OUTPUT DEVICE 
002627 #17,QHSCNTRLO ;;CHECK IF CONTROL O WAS TYPED 
si i} TYPING MESSAGE IF “O WAS TYPED 
177622 2(SP) ,a$TPB OUTPUT CHARACTER 
000002 6$: oo 3 BRANCH IF NOT <CR> 
oo 3;CLEAR CHARACTERS TYPED COUNT 
7$: ——" ; BRANCH IF <LF> OR "NULL" 


oo 33 INCREMENT CHARACTER TYPED COUNT 


AAAAAAAACAO 
ee ee ee ed ed ed ed 
WONAULSWN—O 


8 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
7 


62 
62 
$2 


Wr 


8$: 
: HORIZONTAL TAB <HT> eso 
9$: MOVB #40, (SP) ;;LOAD ‘'SPACE‘ 


10$: JSR PC, 5$ :TYPE "SPACE 
02626 BITB #7. $CHARCNT ITYPE SPACES UNTIL A MULTIPLE 
BNE 10$ >:OF 8 CHARACTERS HAVE BEEN TYPED 
TSTB = (SP) + ::POP SPACE 
BR TYPE1 t:GET NEXT CHARACTER 


; SUBROUTINE TO SAVE GENERAL REGISTERS ON THE STACK 
CALL: SAVE 


- SAVE: SAVE REGISTERS ON THE STACK 


RO,-(SP) 
14(SP) ,=(SP) GET RETURN PC 
PC ETURN 


ee en GENERAL REGISTERS FROM THE STACK 


ee 14 (SP) ;MOVE RETURN PC 
(SP)+, “RO RESTORE REGISTERS 
(SP)+,R1 

(SP)+_R2 

(SP) +-R3 
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(SP)+,R4 
(SP) +,R5 
PC ;RETURN 


+rreya TO CONVERT OCTAL DATA TO ean 
CAL NUMBER ,R2 MOVE NUMBER TO R2 
: SR PC, CNVOCT 


CNVOCT: MOVB SP, TYPFLG :SET DO NOT TYPE FLAG 
BR CNVTO 


. SBTT OCTAL TO ASCII & TYPE ROUTINE 
: SUBROUTINE 10 CONVERT OCTAL NUMBER TO ASCII os TYPE IT OUT 
; MOV NUMBER ,R2 ;PUT # IN R2 


LL 
. PC, TYPOCT ;CALL ROUTINE 
105037 hoe @4TYPFLG ;SET TYPE FLAG 
VTO: 
. SAVE ;SAVE REGISTERS ON THE STACK 

wobicl rs. RG :SET PTR TO OUTPUT 
“J *R3 WILL CONTAIN OCTAL DIGIT 

GET # TO BE TYPED 

;SHIFT &# 

zS=T DIGIT COUNTER 


SHIFT # 3 PLACES LEFT 


000003 : #3,R1 ;SET SHIFT COUNTER 
001140 1 inaceatcaats eric sMOVE ASCII EQUIV TO OUTPUT 


RO ;DECREMENT DIGIT COUNT 
BNE 2$ GET NEXT DIGIT 
001133 @4TYPFLG ;BRANCH IF ASCII IS 
BNE 4$ ;NOT TO BE TYPED 
001152 TYPE ,ODIGITS 
003104 s * Spaetestvens RESTORE REGISTERS FROM THE STACK 


a TO CONVERT OCTAL DAiA TO DECIMAL ASCII 
SCALL: MOV NUMBER ,R2 ;MOVE NUMBER TO R2 
; JSR PC, CNVDEC 


CNVDEC: ae ere :SET DO NOT TYPE FLAG 
- SBTT OCTAL TO DECIMAL & TYPE ROUTINE 
; THIS ROUTINE. CONVERTS AN OCTAL # TO DECIMAL nett AND TYPES IT OUT 
CALL: MOV NUMBER ,R ;PUT # IN R2 
: JSR PC, TYPDEC CALL ROUTINE 


105037 001133 TYPDEC: CLRB @4TYPFLG SET TYPE FLAG 
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CNVTD: 

003062 J PC,.SAVE ; SAVE REGISTERS ON THE STACK 

RO ;RO IS —. NM DECIMAL CONSTANT 
001152 #ODIGITS,R4 SET OUTPUT P 

: i R3 CONTAINS DECIMAL D DIGIT 

003342 $ DCONST (RO) ,R2 ; SUBT RACT DECIMAL CONSTANT UNTIL 

3$ NPUT # GOES NEGATIVE 

R3 [KEEPING TRACK OF SUBTRACTIONS 


2s 

DCONST (RO) ,R2 ;ADD BACK CONSTANT + NEGATIVE 
DIGTAB(R3) , (R4)+ :MOVE ASCII — 

#2,R0 ;NEXT CONSTAN 

DCONST (RO) sUNTIL ALL CONSTANTS DONE 


#'0,(R4)+ ;LAST DIGIT IS 0 


@ATYPFLG BRANCH IF ASCII IS 
BNE 4$ :NOT TO BE TYPED 
TYPE ,ODIGITS 


+ ations ;RESTORE REGISTERS FROM THE STACK 


an 
NN 
mn 
an 


oe 


3 


10000. 
1000. 
100. 
10. 
1. 
0 


WWWRINROIPINIAININININDNY SS Ss SS 


WAG 


; TERMINATOR 


. SBTT TYPE SPECIFIED TIMES ROUTINE 
; THIS SUBROUTINE OUTPUTS THE TIME SPECIFICATIONS FOR THE TEST 
SAND ALSO THE “gi TIME RECORDED (AT IME) 


FORMAT OF LINE T a 

; RANGE =<AAAAAA ACTUAL=CCCCCC 
AAAAAA IS MAXIMUM TIME FOR TEST (STIMTBL(TSTNUMX4)). 
BBBBAB IS MINIMUM TIME FOR TEST (STIMTBL(TSTNUMX4+2)). 
CCCCCC IS ACTUAL TIME RECORDED BY TEST (ATIME). 
TEST NUMBER pny ;LOAD TEST NUMBER 
ATIME ,@#ATI :MOVE TIME TO ATIME 
PC,QUTSPC 
R2,~(SP) ;SAVE R2 & R3 ON THE STACK 


R3,-(SP) 

Re sMULTIPLY TEST # TIMES 4 

R2 O FORM INDEX INTO STIMTBL 
R2,R3 “RS CONTAINS INDEX INTO TABLE 


E.L.RNG 
ee ;GET MAXIMUM SPEC T 
- TYPDEC CONVERT TO DECIMAL ae TYPE 


SH 
Uh odd 5 R2 :GET MINIMUM TIME 
Fl PDEC CONVERT TO DECIMAL & TYPE 


7 
7 
7 
7 
i7 
7 
7 
7 
7 
7 
7 
7, 
17 
7 
7 
7 
7 
7 
7 
7 
17 
7 
7 
7 
17 
7 
7 


as 


MO " QAATIME ,R2 :GET ACTUAL TIME 
JSR PC, TYPDEC CONVERT TO DECIMAL & TYPE 
TYPE , CRLF 





CZTEECO TMO3-TE16/TU77 DFT 
08:40 


CZ2TEEC.P11 


NN YNY 
ARAL 


SIN SN 
332 
Vivi 
MN 
AN 


$33 


SSses 


ek eek kk ed ed od od td od od 
0 00 09 00 Co Co Co Co Co OO 
ed ed ae ee ed aed ed ed ed ad 


S888 
¥ 
& 


§ 
88 


mk ek a et ad dd td I ed a ot I I 
N 

Prreeer 

8 8 

Ww Ww 

Ww Ww 

Ww Ww 

NM N 


: 
bE 


gaegs 
88888388 
Bey ES 


OONOWESWR-O 
S 
& 
¥ 


22-AUG-79 


012603 
012602 
000207 


003062 
001272 
001122 


000002 
000015 
177770 
000003 


000002 
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MOV (SP)+,R3 
MOV (SP)+,R2 
RTS PC ;RETURN 


. SBTT YPE GAP TIMES SUBROUTINE 
; THIS SuaROUT INE IS useo’ TO TYPE a atte ir GAP SIZES (RECORDED IN 
:TST021). IT IS CALLED BY THE GAPOK ROUTINE IF THE GAP SIZE IS OUT OF 
: RANGE VIA THE HLT ROUTINE (HLT+2). 


:CALL: MOVB MGAP , GAP ;LOAD GAP # INTO GAP 
; MOV #TIME ,ATIME ;LOAD ACTUAL TIME INTO ATIME 
: JSR PC ,OUTGAP 
OUTGAP: MOV R2,-(SP) ;SAVE R2 AND R3 
MOV R3,~(SP) 
MOVB GAP ,R3 GET GAP # 
ASL R3 
ASL R3 
TYPE ,|_.RNG 
MOV GTIMTBL (R3) ,R2 ;GET MAX TIME 
SR PC, TYPDEC CONVERT TO DECIMAL & TYPE 
TYPE ,DASH 
MOV ge Sagal R2 ;GET MIN TIME 
JSR PC, TYPDEC :CONVERT TO DECIMAL & TYPE 
TYPE ,ANGTAB TYPE < 
TYPE ,L.ACT 
MOV @AATIME ,R2 ;GET ACTUAL TIME 
JSR PC, TYPDEC ; CONVERT TO DECIMAL & TYPE 
TYPE ,E.GAP 
MOVB @AGAP ,R2 GET GAP # 
JSR PC,TYPOCT TYPE GAP # 
TYPE , CRLF 
V (SP)+,R3 RESTORE R3 AND R2 
MOV (SP)+,R2 
RTS PC 


. SBTTL ASCII TO OCTAL CONVERT SUBROUTINE 
; SUBROUTINE TO CONVERT ASCII DATA TO OCTAL. CONVERTED OCTAL DATA 
31S _LEFT IN OCTALO <15-00>. 


CNVTAO 
JSR PC, .SAVE :SAVE REGISTERS ON THE STACK 
MOV #INBUF RO :SET PTR TO ASCII DATA 
MOV HOCTALO,R1 [GET ADDRESS OF OCTAL~DATA 
CLR (R1) =CLEAR OUT OLD OCTAL DATA 
CLR 2(R1) 

1$: COPE #CR. (RO) :<CR> TERMINATES INPUT 
MOVB (RO) +,R2 :GET "OCTAL' DATA 
BIC #177770,R2 ‘STRIP UNUSED BITS 
MOV #3,R3 ‘SET SHIFT COUNT 

2$: ASL (Ri) *SHIFT LAST 
ROL 2(R1) SOCTAL DIGIT 
DEC R3 
BNE 2$ 
BIS R2, (R1) :AND INSERT THIS DIGIT 
BR 1$ *GO GET NEXT DIGIT 


3$: 


SEQ 0042 
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003644 
003650 


22-AUG~79 


004737 
000207 


113700 
006 


113746 


003104 


000004 


001016 
001126 
002364 


001272 
177560 


177562 


MACY11 PR TIES? 


003760 
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ASCII TO OCTAL CONVERT SUBROUTINE 


JSR 
RTS 


PC,.RESTORE RESTORE REGISTERS FROM THE STACK 
PC RETURN 


PUBLISH SUBROUTINE 


» SBTTL 
;THE PUBLISH SUBROUTINE AVERAGES THE RECORDED TIMES FOR EACH TEST IT- 


ZERATION (IF 16. 


ITERATIONS) AND PLACES THE AVERAGE RESULT IN ‘ATIME'. 


SIT TYPES THE NAME OF THE FUNCTION THAT WAS TIMED, THE TIME SPEC- 
IFICATION AND THE ACTUAL TIME . 


PUBL ISH: 


1$: ADD 


4$: MOVB 


5$: 


PC,.SAVE ;SAVE REGISTERS ON THE STACK 

MAT IMTBL ,RO ;GET TABLE ADDRESS CONTAINING TIMES 
@FITCNT,R1 ;GET # OF ENTRIES (GIVEN BY ITERATION COUNT) 
1” ;BRANCH IF SINGLE ITERATION 

R¢ ;CLEAR ‘SUM’ REGISTERS 

eal ;BRANCH IF 16. ITERATIONS 


; ITERATION COUNT MUST BE 7 OR 16. 
[D0 NOT CHANGE POSIT OF SW11 
[WHEN TEST IS RUNNING. 


ls ;SUM INDIVIDUAL TIMES 
R1 
1$ 
44 ,RO 
SHIFT TIME IN R3 & R2 4 PLACES 
Re :RIGHT = DIVIDE BY 16. 
RO 
3$ 
R2,Q4AT IME ;MOVE AVERAGED TIMES 
jaa GET TEST # 
NAMPTR(RO) ,5$ ;GET TEST NAME STRING ADDRESS 
0 
@4TSTNUM ,R2 :GET TEST # 
PC ,QUTSPC sOUTPUT TIMES 
Oat RESTORE REGISTERS FROM THE STACK 


INPUT SUBROUT INE 


- SBTTL 
: SUBROUTINE TO SET TTY INPUT 


7 CAL 


. INPUT: MOV 
1$: MOV 
2$: TSTB 
BPL 
MOVB 


PC,. INPUT 
INPUT DATA IS RETUNED IN BUFFER BEGINNING AT INBUF. 


RO,-(SP) SAVE RO ON THE STACK 
#INBUF ,RO 

aATKS 

2$ 


@4TKB,-(SP) GET CHARACTER 


SEQ 0043 
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1876 
1877 
1878 
1879 


SERSESEERES 


1891 


1907 


38 
SSS8S BBSSF RSSSRE 


— ee a ot on ot os 8 
wowOODOOOO0O0O0NO 
—_ 3 ow 3 os od 
WONAUSWN =O 


WNSFSVS 
BNALROGNM 


— ss 


— 4 So — 4 
KRRKKS RVEVR 


004170 
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042716 
122716 
001004 
124026 
000004 
000762 
122716 
001004 
005726 
000004 


113746 
042716 
122716 
001002 
111637 
122716 
001007 
023727 
001403 
000005 
000137 
122716 

11 


000200 
000177 
001405 
000025 


001402 
000003 
Rie 
000015 
001407 
001402 


177562 
000200 
000017 
002627 
000003 
000042 


006274 
000001 
000176 
177570 
014314 
000007 


000176 
002526 


MACY11 re 


013504 


001000 
001000 


001000 


3$: 


4$: 


40$: 


5$: 


TKISR 


2$: 


3$: 
4$: 
5$: 


UBROUT INE 
BIC aay: (SP) 
CMPB 7, (SP) 
BNE 
CMPB =(RO), (SP) + 
TYPE ,BKSLSH 
BR 2$ 
CMPB AMCNTRLU, (SP) 
BNE 4$ 
TST (SP) + 
TYPE , CRLF 
BR 1 
CMPB AMCNTRLC, (SP) 
BNE 40$ 
RESET 
JMP a4 INIT 
MOVB (SP) , @#E CHO 
MOVB (SP), (RO) + 
CMPB #CR,(SP)+ 
BEQ 5$ 
TYPE ,ECHO 
TYPE , CRLF 
MOV (SP)+,RO 
RTS PC 


a ree INTERRUPT SERVICE ROUTINE 
MOVB @4TKB,-( 


SP) 
BIC #200, (SP) 
CMPB #ENTRLO, (SP) 


MOVB (SP) ,$CNTRLO 
C #3, (SP) 
BNE $ 


2 
CMP a 


JMP af INIT 

CMPB piece (SP) 

CMP ASWREG, SWR 
4$ 


BNE 

MOV #177570, SWR 
TYPE ,.M.HSWR 

CMPB ACNTRLG, (SP) 
BNE 5$ 

MOV ASWREG , SWR 
JSR PC,GTSWR 

TST (SP) + 

RT] 
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; CHECK RUBOUT 
REMOVE CHARACTER FROM INPUT 


;WAIT FOR NEXT CHARACTER 
; CHECK CONTROL U (“*U) 


;BRANCH IF NOT CONTROL C 


1/0 


sRESET 
;RESTART PROGRAM 


GET TYPED CHARACTER 
;STRIP PARITY BIT 


[BRANCH IF NOT CONTROL 0 (*0) 
;SET CONTROL O INDICATOR IN TYPE ROUTINE 
;BRANCH IF NOT CONTROL C (“C) 
; INHIBIT *C IF ACT11 QV OR AA 


;RESTART PROGRAM 

;BRANCH IF NOT “A 

;BRANCH IF HARDWARE SWR IS INVOKED 
; INVOKE HARDWARE SwWR 

;BRANCH IF NOT “G 

:GET NEW SWITCH REGISTER 


;POP CHARACTER OFF THE STACK 
;RETURN TO CALLER 


SEQ 0044 
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1931 
1932 
1933 
1934 
1935 
1936 004252 004737 
1937 004256 110637 
9 004262 032777 
1939 004270 001075 
1940 004272 000004 







1942 004302 004 

1943 004 016600 
1944 004312 162700 
1945 004316 111000 
1946 004320 001417 
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ERROR SERVICE ROUTINES 


- SBTTL FRROR SERVICE ROUTINES 
;ROUTINE TO PROCESS ERROR TRAPS (TRAPS TO 4) 
ERRTRP: HALT 


ERROR SERVICE ROUTINE 

; THIS ROUTINE PROCESSES TWO TYPES OF ERRORS (OUT OF RANGE — A pes 
; THE CALLS FOR AN OUT OF RANGE ERROR ARE <HLT+1>,<HLT+2> AND, FOR A 
[HARDWARE ERROR THE CALL IS <HLT>. 





MACY11 30A(1052) 


003062 “HiT: JSR PC, . SAVE ;SAVE REGISTERS ON THE STACK 
001127 i$: MOVB = SP. a#ERFLG “SET ERROR FLAG 
020000 174510 BIT #SW15,aSWR ‘BRANCH IF NO TYPOUT 
015137 TYPE ,£.HDR 
001126 MOVB | a#TSTNUM,R2 :GET TEST # 
003134 JSR PC, TYPOCT ‘AND TYPE IT 
000016 MOV 16(SP) .RO “GET RETURN PC 
000002 SUB #2,RO “NOW PC OF HLT CALL 

MOVB _— (RO) ,RO [NOW HLT CALL ITSELF 

BEQ 2$ “BRANCH IF HLT 
015222 TYPE ,£ .HDR2 
000002 COPE #2 -RO :BRANCH IF NOT HLT+2 
003452 JSR PC ,OUTGAP : TYPE GAP SPECIFIED TIMES 
001462 TYPE CRLF | 
003356 10$: JSR PC ,OUTSPC :TYPE SPECIFIED TIMES 
001402 TYPE ,CRLF 

BR 4$ 
000014 2$: MOV ER(R5) .RO 
002300 000032 BIT #PE 1600, TC(RS) 

BEQ 20$ 
102100 BIC #102100,R0 
102300 20$: BIC #102300,R0 

BNE 228 
015113 TYPE ,E.SFT : TYPE SOFT ERROR MESSAGE 

BR 6$ 
015147 22$: —«*TYPE.E.HDR1 

MOV R5 RO :GET FIRST ADDRESS OF REGS. 
000007 MOV #7. RI ‘TYPE FIRST 7 REGS. 

3s: MoV (ROS +,R2 ‘GET REG CONTENTS 

003134 JSR PC, TYPOCT ‘AND TYPE IT 
001415 TYPE, SPACE? 

DEC 

BNE § 
000032 MOV TC (RS) .R2 :GET CONTENTS OF TC REGISTER 
003134 JSR PC, TYPOCT 
001402 TYPE, CRLF 
001000 174306 4$: eI #SWO9,aSuR :BRANCH IF NO RING THE BELL 
001411 TYPE ,BELL 
174276 5$: TST aSwWR :HALT ON ERROR? 
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CZTEFC.P11 22-AUG=79 08:40 OR SERVICE ROUTINES SEQ 0046 
1983 004504 100001 BPL 6$ 
1984 004506 900000 HALT 
1985 004510 6$: 
1986 004510 004737 003104 JSR PC,.RESTORE RESTORE REGISTERS FROM THE STACK 
lone 004514 000002 RT] ; RETURN 
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TEEC.P11 22-AUG=79 08:4 OPE SUBROUTINE SEQ 0047 
1990 .SBTTL SCOPE SUBROUTINE 
1991 : SCOPE ROUTINE 
1992 ‘THIS ROUTINE IS ENTERED UPON COMPLETION OF EACH SUBTEST 
1993 STHE SCOPE ROUTINE: 
1994 ; REPEATS TEST IF Sw14 IS SET 
1995 3 STORES ACTUAL TIME + FUNCTION IN TIME TABLE (ATIMTBL) 
1996 ; PUBLISHES TIME IF SW10=0 
1997 ; UPDATES ITERATION COUNT AND IF ITERATIONS COMPLETE CONTINUES 
1998 : TO NEXT TEST, OTHERWISE REPEATS TEST. 
1999 ; DELAYS BEFORE CONTINUING OR REPEATING TEST. 
2000 : INITIALIZES DRIVE 
2001 RETURNS : R5=BASE ADDRESS OF TMO3 REGISTERS (ADDRESS OF CS1) 
2002 R1='DS' REG ADDRESS 
2003 : RO="FC* REG ADDRESS 
2005 004516 013705 001010 ~SCOPE: MOV QA TMBASE ,R5 :SET RS TO FIRST TM REG 
2006 004522 032777 040000 174250 BIT #SW14,aSWR ;BRANCH IF CONTINUOS LOOP 
2007 004530 001432 BEQ 2$ ‘NOT DESIRED 
2008 004532 017701 174242 1$: MOV aSWR,R1 :GET SWITCHES 
2009 004536 042701 177740 BIC #177740,R1 [CLEAR ALL BUT TEST # 
2010 004542 001406 BEQ 11$ ‘BRANCH IF ALL SELECTED 
2011 004544 120137 001126 CMPB ~—s- R11, AA TSTNUM [BRANCH IF RUNNING SELECTED TEST 
2012 004550 001403 BEQ 11$ 
2013 004552 012737 010000 001002 MOV #TSTOOO, SCPADR :RESTART AT TSTOOO 
2014 004560 004737 005310 11$: JSR PC,DELAY :DELAY 350 MS 
2015 004564 004737 005544 JSR PC -RHINIT : INIT 
2016 004570 105037 001127 CLRB §a@#ERFLG ‘CLEAR ERROR FLAG 
2017 004574 013716 001002 MOV SCPADR, (SP) 
2018 004600 010501 MOV R5,R1 
2019 004602 062701 000012 ADD #05, R1 zADDRESS OF 'DS* REG IS IN R1 
2020 004606 010500 MOV R5,R 
2021 004610 062700 000006 ADD #FC,RO :ADDRESS OF 'FC' REG IS IN RO 
3032 004614 000002 RTI 
2024 004616 105737 001127 es: TSTB Q4ERFLG ;BRANCH IF ERROR FLAG IS SET 
2025 004622 001006 BNE 3$ 
2026 004624 113700 001125 MOVB  a@#I1TCNT,RO :GET ITERATION COUNT 
2027 004630 006300 ASL RO SSTORE TIME IN TABLE 
2028 004632 013760 001016 001020 MOV @4ATIME , ATIMTBL (RO) 
2029 004640 105237 001125 3$: INCB av ITCNT ; INCREMENT ITERATION COUNT 
2030 004644 105737 001134 TSTB @4PSCNT ; INHIBIT ITERATIONS ON 
2031 004650 001410 BEQ 4$ ‘ON FIRST PASS 
2032 004652 032777 004000 174120 BIT #SW11,aSWR ;BRANCH IF SINGLE ITERATION DESIRED 
2033 004660 001004 BNE 4 
34 004 122737. 000020 001125 CMPB =—s#'16. ,@M# I TCNT sBRANCH IF ITERATIONS INCOMPLETE 
2035 004670 001320 BNE 1$ 
2036 004672 032777 000037 174100 4$: BIT #37, aSwR ;1F TEST SELECTED IS TEST 0 
2037 004700 001002 BNE 42$ ‘TREAT AS ALL TESTS 
2038 004702 011637 001002 40$: MOV (SP) ,a#SCPADR SET SCOPE ADDRESS TO NEXT TEST 
2039 004706 032777 002000 174064 42$: BIT #S5w10,aSWR ‘BRANCH IF NO PUBLICATION DESIRED 
2040 004714 001002 BNE 5$ 
2041 004716 004737 003652 JSR PC,PUBLISH :GO PUBLISH TEST DATA 


001125 5$: eg  ilagae [RESET ITERATION COUNT 
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032765 


032765 
001362 
000112 


000024 
000100 


000100 


000100 


000100 


015250 
173740 


000100 
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000024 
000024 


000024 


000024 


000024 


R SUBROUTIN 


; SUBROUTINE TO SYNCHRONIZE THE TIMER AND TURN IT ON. 

;REGISTER 4 IS CLEARED, AND THE OSCILLATOR POLARITY IS MONITORED 
THE ROUTINE IS EXITED WHEN THE OSCILLATOR POLARITY CHANGES WITH R3 
:SET TO Agena gg POLARITY OF THE OSCILLATOR. 


> CALL: PC.TIMON 

;RE TURNS : a deg TO INDICATE LAST POLARITY (+24/=24=0/1) 

TIMON: CLR R4 ;CLEAR TIME COUNT 
MOV #24 ,R3 ;SET POLARITY TO ‘OQ' STATE 
au — BRANCH IF POLARITY IS ‘O' 

1$: BIT #OSC,MR(R5) ;WAIT FOR OSCILLATOR TO RETURN 
BNE 1$ 
BR 4$ 

2$: NEG R3 NEGATE PREV POLARITY INDICATOR 

3$: BIT #OSC,MR(R5) ;WAIT FOR OSCILLATOR TO RETURN 
BEQ 3$ :TO ‘1° STATE 

4$: RTS PC 


; SUBROUTINE TO COUNT TIME 
EACH TIME THE OSCILLATOR TOGGLES (BIT <06> IN MR REG) REGISTER 
3R4_IS INCREMENTED, AND THE REGISTER R3 IS NEGATED TO INDICATE 
THE LAST STATE OF THE OSCILLATOR. 

;R3 iS SET BY TIMON ROUTINE 


;CALL JMP TIMER (R3) 
R2=RETURN ADDRESS TO CALLER 

:NOTE: THE TIME TO EXECUTE THIS ROUT INE IS VERY CRITICAL. IT MUST BE 

LESS THAN 40 US. 


ENTER HERE VIA JMP_ TIMER(R3) WHEN R3=-24 re STATE=1) 
TIMER1: BIT #OSC .MR(R5) BRANCH IF ge STATE IS ‘'O" 
BEQ TIMER ;GO_INCREMENT TIME 


JMP (R2) ;RETURN TO TEST 
-=TIMER1+24 
TIMER: NEG R3 NEGATE PREV STATE INDICATOR 
INC R4 ; INCREMENT ‘TICK" COUNT 
BMI TIMERR BRANCH ON OVERFLOW 
) ;RETURN TO TEST 


JMP (R2 
TIMERR: TYPE,E.TIMOV TYPE "TIMER a cee 
HLT zREPORT HARDWARE ERR 


L 
JMP @SCPADR ;RETURN TO BEGINNING “OF TEST 


.=TIMER+24 
ZENTER HERE VIA JMP_ TIMER(R3) WHEN R3=+24 (PREV STATE=0) 
TIMERO: BIT #OSC ,MR(RS) ;BRANCH IF CURRENT STATE = ‘1° 


; SUBROUTINE TO CHECK TIME RECORDED BY SUBTEST. 

; THIS SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AND CHECKS 
; THAT THE TIME RECORDED BY THE SUBTEST IS CORRECT BY COMPARING THE TIME 
WITH THE HIGH LIMIT (STIMTBL{(RO)) AND THE LOW LIMIT (STIMTBL+2(RO)). 
71F THE TIME IS OUT OF RANGE AN OUT OF RANGE ERROR TYPEQUT RESULTS. 


SEQ 0048 


K 4 
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CZTEEC.P11 22=AUG=79 08:40 R SUBROUTINES SEQ 0049 
2102 :THE SUBROUTINE IS ENTERED WITH: 
2103 : R4=TICK COUNT 
2104 
2105 005056 TIMOK : 
2106 005056 004737 003062 JSR PC,.SAVE : SAVE REGISTERS ON THE STACK 
2107 005062 013700 001012 MOV OSCTIM,RO 'GET TIME PER TICK 
2108 005066 010401 MOV R4,R1 :GET TICKS COUNT 
2109 005070 005002 CLR R2 =CLEAR SUMMING REGISTERS 
2110 005072 005003 CLR R3 
2111 005074 060002 1$: ADD RO,R2 sMULTIPLY TIME PER TICK 
2112 005076 905503 ADC R3 ‘BY TICK COUNT 
2113 005100 005301 DEC R1 
2114 005102 001374 BNE 1$ 
gt 005194 010246 MOV R2,-(SP) :DIVIDE COUNT BY 10. 
2117 005106 010346 MOV R3,-(SP) 
2118 005110 012746 000012 MOV #10.,-(SP) 
2119 005114 004737 005376 JSR PC DIVIDE 
2120 20 005726 TST (SP) + :DISCARD REMAINDER 
2121 005122 012637 001016 MOV (SP) +, @#AT IME ‘STORE QUOTIENT 
2122 005126 113700 001126 MOVB  a@4TSTNL™,RO “GET TEST # 
2123 005132 006300 ASL RO 
2124 005134 006300 ASL RO 
2125 005136 023760 001016 002124 CMP @YATIME, STIMTBL (RO) :CHECK THAT TIME IS WITHIN 
2126 005144 101004 BHI 2$ [LIMITS SPECIFIED 
2127 005146 023760 001016 002126 CMP @AATIME , STIMTBL +2(RO) 
2128 005154 101001 BHI 3$ 
2129 005156 104401 2$: HLT+1 :CALL ERROR ROUTINE 
2130 005160 3$: 
2131 005160 004737 003104 JSR PC, .RESTORE sRESTORE REGISTERS FROM THE STACK 
3132 005164 000207 RTS PC RETURN 
2134 ; SUBROUTINE TO CHECK INDIVIDUAL GAP TIMES (PRODUCED BY TST021) 
2135 : SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AND CHECKS 
2136 “THAT THE GAP TIME RECORDED BY THE SUBTEST Creo) BY COMPARING THE 
2137 Time WITH THE MAX LIMIT (GTIMTBL-GAPTBL(R1)) AND THE MIN LIMIT 
2138 : (GTIMTBL+2=GAPTBL(R1)). 
2139 *CALL: MOV ATICK COUNT,R4 :R4 CONTAINS TICK COUNT 
2140 : MOVB  #GAP,a4#GAP SLOCATION GAP CONTAINS GAP # 
2141 : JSR PC, GAPOK 
2142 
2143 005166 GAPOK : 
2144 005166 004737 003062 JSR PC, .SAVE SAVE REGISTERS ON THE STACK 
2145 005172 013700 001012 MOV a¥OSCTIM,RO [GET TIME PER TICK 
2146 005176 010401 MOV R4,R1 ‘GET TICK COUNT 
2147 005200 005002 CLR R2 SCLEAR SUMMING REGISTERS 
2148 005202 005003 CLR 3 
2149 005204 060002 1$: ADD RO,R2 sMULTIPLY TICK COUNT 
2150 005206 005503 ADC R3 ‘BY TIME PER TICK 
2151 005210 005301 DEC R1 
3152 005212 001374 E 1$ 
2154 005214 010246 MOV R2,-(SP) :DIVIDE TIME BY 10. 
2155 005216 010346 MOV R3.-(SP) 
2156 005220 012746 000012 MOV #10. ,-(SP) 
2157 005224 004737 005376 JSR PC DIVIDE 
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003104 


004730 
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005020 
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TIMER SUBROUTI 


100$: 


JSR 
RTS 


4 
ae A 09:00 AGE 50 


(SP)+ ;DISCARD REMAINDER 
(SP) +, @4AT IME STORE QUOTIENT 
@AGAP ,.R3 GET GAP # 

R3 MUL TPLY 


BY 4 
R3 :TO GET "aT TABLE ENTRY 
elaine ZCHECK TIME (MAX) 


yh tart as CHECK TIME (MIN) 
REPORT OUT OF RANGE ERROR 


#SW10,aSWR ;BRANCH IF TIMES NOT WANTED 

100$ 

PC,.RESTORE RESTORE REGISTERS FROM THE STACK 
PC ;RETURN TO TEST 


ELAY SUBROUTINES 


. SBTT D 
hag Fd “SUBROUTINE CAUSES A DELAY OF 115 MS. 
DELA JSR PC, TIMON 


1$: 
2$: 


DELAYV: 


1$: 
2$: 


3$: 


MOV 


RTS 


R2,~(SP) SAVE R2 ON THE STACK 
#2$,R2 [SET RETURN ADDRESS FOR TIMER 
TIMER(R3) ;GO TO TIMER & RETURN VIA R2 
> ames 
(SP)+,R2 sRESTORE R2 
PC 
bgp _SUBROUT INE ALLOWS A CALLER SPECIFIED DELAY. 

LL: MOV gn -DELTIM ;LOAD DELAY TIME (# OF TICKS) 
ow IM ;BRANCH IF 0 DELAY 
PC,TIMON TURN TIMER ON 
R2,-(SP) 7SAVE R2 ON THE STA 
#2$,R2 [SET RETURN ADDRESS. FROM TIMER 
TIMER(R3) ;GO TO TIMER & RETURN VIA R2 
@ADELTIM,R4 
Settee ;RESTORE R2 


-SBTTL DIVIDE SUBROUTINE 
;THIS SUBROUTINE DIVIDES A DOUBLE PRECISION # AND RETURNS THE RESULT 
:TO THE a a ON THE STACK. BOTH DIVIDEND & DIVISOR MUST BE POSITIVE. 


Vv 
MOV 
JSR 


LEAST SIGNIFICANT HALF DIVIDEND,~(SP) 
MMOST SIGNIFICANT HALF DIVIDEND,-(SP) 
A#DIVISOR,-(SP) 

PC DIVIDE 


N 
(SP)=REMAINDER ON STACK 


2(SP)=QUOTIENT 


SEQ 0050 
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NOTE: THIS SUBROUTINE DESTROYS PREVIOUS CONTENTS OF RO,R1,R2 & R3. 


DIVIDE: (SP) SAVE LOC FOR SIGNS 
MO SET ITERATION COUNT 
GET LSH DIVIDEND 
ZGET MSH DIVIDEND 
:GET DIVISOR 
NEGATE DIVISOR 
CLEAR ‘C* BIT IN PSW 


ROTATE MSH DIVIDEND 
7SAVE_IN_R3 


7SUBTRACT DIVISOR FROM MSH DIVIDEND 
7BRANCH IF DIVIDEND > DIVISOR 

;SAVE_ REMAINDER IN RO 

SROTATE LSH DIVIDEND 

;DECREMENT ITERATION COUNT 


:POP ITERATION COUNTER 


PUSH QUOTIENT ONTO STACK 
(SP)+, (SP) 


-SBTTL DRIVE SUBROUTINES 
; SUBROUT INE TO CHECK IF DRIVE IS AVAILABLE 
L: MOVB DR re wee 
: JSR PC,DRVA 
'c’ BIT VST IF NOT AVAILABLE 


;RETURN: 
113765 DRVAVA: MOVB @4DRVNUM, CS2(R5) ;LOAD DRIVE # 
BIT ATAP, DT(R5) sCHECK IF TAPE UNIT 


1$ 
PC,RHINIT 


SET ‘V* TO IND NOT AVAIL 
PC RETURN 


+ reg 4 TO wnt IF TE16/TU77 SLAVE IS AVAILABLE FOR TEST 
[CALL: MOVB DRIVE #,a4DRVNUM PASS DRIVE # VIA DRVNUM 
: MOVB SLAVE Ze PO iamahana te zPASS SLAVE # VIA SLVNUM 
: JSR PC,SLVA CALL SUBROUTINE 
SLVAVA: MOVB SWORVNUM, CS2(R5) [LOAD DRIVE B 

MOVB @4SLVNUM, TC(RS) SAND SLAVE # 
od + eat BRANCH IF SLAVE PRESENT 


SEV SET ‘V* TO INDICATE NO SLAVE 
1$: RTS PC 


; SUBROUTINE TO INITIALIZE RH CONTROLLER 
ZCALL: JSR PC,RHINIT 


012765 000040 000010 RHINIT: pent CS2(R5) 

113765 000010 MO DRVNUM, CS2(R5) 

005046 SP ) 

113716 @4S1.VNUM, (SP) 

012665 0000 (SP)+,TC(R5) ;LOAD SLAVE # INTO TC REG 


SEQ 0051 
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005572 
005600 


005770 


052765 
000207 
005027 
000000 
105765 
100406 
005237 
001372 


000425 
032765 
001415 
000004 


001374 


004 337 


001700 


000012 
005604 
015275 
002000 
014134 
003706 
005770 
005602 
040000 


005544 
006124 
000002 


040000 


020000 


006124 


000032 


000012 


000012 


000012 
000012 


000012 
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DRIVE SUBROUTINES 


CLEAR WAIT TIMER 
WAIT FOR READY TO SET 
; INCREMENT WAIT TIMER 


BRANCH _IF TIME HAS NOT EXPIRED 
: TYPE pat a a WAITING FOR RDY‘ 


OR EX! 
= CHECK FOR END OF TAPE 
BRANCH IF NO EOT 


;TYPE ‘END OF TAPE‘ 
[REWIND SLAVE 
BRANCH IF ERROR ON REWIND 
WRITE A RECORD 


OR EXI 
“CHECK ERROR EXIT 


BIS #NORM11,TC(R5S) 
RTS PC 
SUBROUTINE TO WAIT = DRIVE READY (DRY) 
WAITRDY: CLR (PC)+ 
WAITTIM: WORD 0 
1$: iSTB DS(R5) 
BM 
INC WAITTIM 
BNE 1$ 
cael * pa 
2$: BIT #EOT .DS(RS) 
BEQ 3$ 
TYPE .M.NAM 
TYPE .M.EOT 
JSR «REWIND 
BVS 
JSR PC WRITE 
INC (R5) 
JSR PC ,WAITRDY 
BR 99$ 
3$: BIT MERR ,DS(R5) 
BEQ 100$ 
are 


CALL 


: move 


:AN ERROR OCCURS. 


-REWIND:JSR PC,RHINIT 
JSR R3, TMCMD 
. WORD 
-WORD QO 
-WORD 0 
. WORD 
INC (R5) 
1$: BIT #BOT,DS(R5) 
BNE $ 
BIT #ERR,DS(R5) 
BNE 99$ 
1$ 
2$: BIT #PIP,DS(R5) 
BNE 2s 
BR 100$ 
99$: SEV 
100$: RTS PC 
; SUBROUTINE 


CALL: JSR 
WRITE: JSR 


TO WRITE 256. WORD RECORD 
PC WRITE 


R3, TMCMD 


1008: PC 

a i. TO ee A UNIT (DRIVE/SLAVE COMBINATION) 
DRIVE #,a4DRVNUM 

SLAVE #,@4SLVNUM 

: JSR PC, .REWIND 

[SUBROUTINE RETURNS TO CALLER WITH SELECTED SLAVE AT ‘BOT’, 


gaat Ize CONTROLLER 

:GO TO TM COMMAND SUBROUTINE 
[BUS ADDRESS (NOT USED) 
;WORD COUNT (NOT USED) 
;FRAME COUNT (NOT USED) 
SREWIND C 

7SET ‘GO’ BIT 

;BRANCH IF ‘BOT’ SET 


CHECK ERROR BIT 
[BRANCH IF ERROR BIT SET 


;WAIT FOR TAPE MOTION TO STOP 


:GO TO TM COMMAND SUBROUTINE 


& ‘v" SET IF 


SEQ 0052 
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005774 
005776 
006000 


006002 
006004 


177777 
000031 
005602 


005770 
005602 
177777 
000033 
005602 
005310 


MACY11 


000006 


30A(10 
DRIVE 


8 
52) 22-AUG-79 09:00 PAGE 53 
SUBROUT INES 


WTBUF ;BUS ADDRESS 
WRDCNT WORD COUNT 
FRMCNT ;FRAME COUNT 
«WORD WWD WRITE FORWARD COMMAND 
RTS PC 
; SUBROUTINE TO READ A 256. WORD RECORD. 
ALL: JSR PC READ 


READ: R3,a4TMCMD 
- WOR RDBUF ADDRESS OF READ BUFFER 
«WORD WRDCNT 2's COMPLEMENT OF WORD COUNT 
«WORD FRMCNT :2°S COMPLEMENT OF FRAME COUNT 
a ~ Se ;READ FORWARD COMMAND 


Sane eeke TO oe ae READ REVERSE COMMAND 
# CALL JSR PC ,.REVRD 


REVRD: JSR R3,TMCMD 
«WORD R ADDRESS OF aaa REVERSE BUFFER 
EMENT OF WORD COUNT 


5 
READ REVERSE COMMAND 


.™ SPACE FORWARD 1 RECORD 
#-1,FC(RS) ;LOAD RECORD COUNT 
#SPCFWD+1, (RS) ;LOAD COMMAND 
PC WAI TRDY sWAIT FOR READY 
PC RE TURN 


. 
’ 


TO WRITE A RECORD AND BACK SPACE OVER THE RECORD. 
PC WRITE ;WRITE THE RECORD 
(R5) SET ‘GO* BIT 
oo 


#-1,FC(RS) ;LOAD RECORD COUNT 
#SPCREV+1, (R5) ;LOAD COMMAND 
ates 


2 

1$: PC,DELAY ;WAIT FOR TAPE MOTION TO STOP 
2$: PC 
; SUBROUTINE TO LOAD A COMMAND 
:CALL: JSR R3,TMCMD 
: . WOR BUS ADDRESS 

WORD COUNT (2'°S COMPLEMENT) 

FRAME COUNT (2 S COMPLEMENT) 

COMMAND 


(R3)+,BA(R5) ;LOAD BUS ADDRESS 
(R3)+,WC(R5) ;LOAD WORD COUNT 
(R3)+,FC(R5) 

(R3)+,(R5) 

R3 
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2 
3388 
2384 
2385 
2386 006144 016503 000030 
2387 006150 012701 001152 
2388 006154 000303 
2389 006156 006003 
2390 006160 006003 
2391 006162 006003 
2392 006164 006003 
2395 006166 042703 177760 
2394 006172 052703 000260 
2395 006176 110321 
239% 006200 016503 000030 
2397 006204 303 
2398 006206 042703 177760 
2399 006212 052703 000260 
2400 006216 110321 
2401 0062 016503 000030 
2402 006224 006003 
2403 006226 006003 
2404 006230 006003 
2405 006232 006003 
2406 006234 042703 177760 
2407 006240 052703 000260 
2408 006244 110321 
2409 006246 016503 000030 
2410 006252 042703 177760 
2411 006256 052703 000260 
2412 006262 110321 
2413 006264 105011 
2414 006266 001152 
2415 006272 000207 


MACY11 wt i 
RIVE SUBROUTINES 


SNPT: 


C 
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CLRB ( 
TYPE ,ODIGITS 
RTS PC 


SN(R5) ,R3 


R 
#177760,R3 
#260 ,R3 
R3,(R1)+ 
SN(R5) ,R3 
#177760,R3 


+ eden 


; SUBROUTINE TO PRINT SERIAL NUMBER 
SR PC, SNPT 


GET FIRST DIGIT 


FILL FIRST DIGIT 


GET SECOND DIGIT 


:GET THIRD DIGIT 


;GET FOURTH DIGIT 


. 
° 


TYPE SERIAL NUMBER 
RE TURN 


SEQ 0054 


























006274 
006300 


CZTEECO TMO3-TE16/TU77 DFT 
79 08:40 


CZTEEC.P11 22-AUG- 


age 


es: 


388 
Sx¥ 


000004 
172450 


001000 


001000 


000041 


001272 


001010 


000004 


30A(1052) 








4 
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PROGRAM INITIALIZATION 


-SBTTL PROGRAM INITIALIZATION 


SEQ 0055 


INIT: MOV #STKPTR,SP ;SET STACK PTR 
CLR af | NBUF 
MOV 46 ,-(SP) ;SAVE VECTORS 
MOV a4 ,-(SP) 
MOV #61$ 044 ;SET UP FOR TIMEOUT 
CMP #~1 ,aSWR ;REFERENCE HARDWARE SWITCH REGISTER 
BEQ 60$ 
BR 62$ 
61$: CMP (SP) +, (SP)+ s;ADJUST STACK 
60$: MOV ASWREG , SWR :POINT TO SOFTWARE SWITCH REG 
62$: MOV (SP) +, a4 :RESTORE VECTORS 
MOV (SP) +,a46 
CLRB @4PRGFLG ;CLEAR PROGRAM FLAG 
CLRB @4ASFLG ;CLEAR ASK FLAG 
CLRB @4PSCNT ;SET PASS C = 
CLR (PC)+ ;:CLEAR CHAIN INDICATOR 
CHNFLG: .WORD 0 ::CHAIN MODE INDICATOR 
331/70 = CHAIN/NOT CHAIN MODE 
TST a442 ; ;BRANCH IF IN DUMP MODE 
BEQ 50$ 
MOV ASWREG, SWR 3; INVOKE SOFTWARE SWR 
INC CHNF LG :SET_CHNFLG = CHAIN MODE 
508 JMP 1$ ::GO TO CHAIN ADDRESS 
1$: oa —_" BRANCH IF NOT LOADED VIA TMDP 
a ;ADVISE USER TO REMOVE TMDP 
2$: TYPE .M.NAM ; TYPE TITLE 
TST CHNF LG ;SEE IF CHAIN MODE 
BNE 5$ :IF SO: BR 
CLRB M.NAM :DO NOT TYPE TITLE ON RESTART 
TYPE,1.REG ASK USER TO TYPE CONT BASE ADRS 
MOV @4 TMBASE ,R2 ;GET CURRENT CONT BASE ADDRESS 
JSR PC, TYPOCT ;AND TYPE IT 
TYPE , SPACE 
JSR PC,. INPUT ;GET USER INPUT 
CMPB #CR,a# INBUF :DO NOT CHANGE —e VALUE 
BEQ 5$ IF USER TYPES <CR> 
4$: JSR PC, CNVTAO [CONVERT ASCII TO OCTAL 
MOV @40CTALO , @#TMBASE 7SET NEW ADDRESS 
5$: MOV @4TMBASE ,R5 
ROUTINE TO CHECK IF CONTROLLER (RH11) IS AVAILAABLE 
SEC SET 'C' IN PSW 
TST (R5) [BRANCH IF CONTROLLER AVAIL 
BCC 6$ 
TYPE ,E.NCON 
BR I 


NIT 
MOV #ERRTRP , @#ERRVEC 





7SET ERROR TRAP VECTOR 


CZTEECO TMO3-TE16/TU77 DFT 
8:40 


CZTEEC.P11 22-AUG-79 0 
2469 
2470 006550 105037 001127 
2671 006554 012701 001162 
2472 006 127 000004 
2473 006564 005021 
2474 006566 5 
2475 006570 001375 
2476 006572 005737 006372 
2477 006576 001014 
2478 014464 
2479 737 004000 
248C 006610 012700 001272 
2481 006614 122710 000101 
2482 006620 001403 
2483 006622 122710 000015 
2484 006626 001013 
2485 006630 110637 001131 
2486 006634 012701 001162 
2487 006640 012700 000004 
2488 006644 012721 177777 
2489 006650 005300 
2490 006652 001374 
2491 006654 000417 
2492 
2493 
2494 006656 122710 000015 
2495 006662 001414 
2496 121027 000054 
2497 006670 1001 
2498 006672 105720 
24 006674 112001 
2500 006676 042701 177770 
2501 006702 112761 177777 
2502 006710 000240 
2503 006712 000761 
2504 
2505 
2506 006714 5000 
2507 006716 105760 001162 
2508 006722 1005 
2509 006724 5200 
2510 006726 122700 000010 
2511 006732 001371 
2512 006734 000424 
2513 006736 110037 001004 
2514 006742 004737 005466 
2515 006746 102366 
2516 006750 105737 001131 
2517 006754 001011 
2518 006756 014757 
2519 006762 116037 001140 
2520 006770 000004 015011 
2521 006774 110637 001127 
2522 007000 105060 001162 
2523 007004 000747 
2524 007006 105737 001127 


MACY11 30A(1052) 


001162 


015011 


E 
22-AUG-79 09:00 PAGE 56 


PROGRAM INITIALIZATION 
;ROUTINE TO GET pane me USER DESIRES TO TEST 


DRIVES: CLRB 
MOV SORVTBS , Ri 
MOV #4 RO 
1$: CLR (Ri)+ 
DEC RO 
BNE 1$ 
TST CHNF LG 
BNE $ 
TYPE, 1.DRVS 
JSR PC,. INPUT 
MOV #INBUF ,RO 
C #°A, (RO) 
BEQ 
CMPB —s- ACR, (RO) 
BNE 
2$: MOVB SP, PRGFLG 
MOV #ORVTBL,R1 
MOV #4 RO 
3$: MOV #-1,(R1)+ 
DEC RO 
BNE 3$ 
BR CHKDRV 
:GET USER SELECTED DRIVES AND MARK EACH 
4$: CMPB ss #CR,, (RO) 
BEQ CHKDRV 
CMPB Ss (RO) A", 
BNE 5$ 
TSTB (RO) + 
S$: MOVB _— (RO) +,R1 
BIC #177770,R1 
MOVB = #-1, DRVTBL(R1) 
NOP 
BR 4$ 
:ASCERTAIN THAT 
CHKDRV CLR 
1$: TSTB —— DRVTBL(RO) 
BNE 3$ 
2$: INC RO 
CMPB Ss #8. ,RO 
BNE 1$ 
BR 5$ 
3$: MOVB —- RO, @# DRVNUM 
JSR PC. a#DRVAVA 
BVC 2$ 
TSTB = @APRGFLG 
E 4$ 
TYPE ,E.NDRV 
MOVB yDIGTAB(RO) . WE .NAVA 
TYPE ,E.NA 
MOVB ~ % Q4ERFLG 
4$: CLRB —— DRVTBL (RO) 
BR 2$ 
S$: TSTB = @#ERFLG 


; CLEAR ERROR FLAG 

;MARK ALL DRIVES A 0 

;BE TESTED. A ‘'O" INDICATES 
; THAT A DRIVE IS NOT TO BE 

TESTED 


;BRANCH IF IN CHAIN MODE 


GET USER INPUT 


7 1F USER RESPONDS WITH ‘A* OR 
7<CR> THEN ALL AVAILABLE DRIVES 
sARE TO BE TESTED 


:SET FLAG TO IND ALL DRIVES 

;MARK ALL DRIVES TO BE TESTED 
;A_‘'=1" INDICATES THAT A DRIVE 
ts TO BE TESTED 


:GO CHECK DRIVE AVAILABILITY 


DRIVE SELECTED TO BE TESTED 


;CHECK IF *COMMA‘ 
;STEP PTR PAST ‘COMMA’ 


DRIVES (TMO3'S) SPECIFIED ARE AVAILABLE 
RO sA (0 


) IN DRVTBL(RO) INDICATES 
THE DRIVE IS NOT TO BE TESTED 
ZA '1" INDICATES TO BE TESTED 


;GET DRIVE # 
;AND CHECK IF AVAILABLE 


:'V" BIT SET INDICATES NOT AVAIL 


:DO NOT TYPE NOT AVAILABLE 
MESSAGE IF ALL SELECTED 


;SET DRIVE # IN MESSAGE 


SET “ERROR' FLAG 

;MARK DRIVE UNAVAILABLE 
CHECK NEXT DRIVE 

:GO GET SLAVES IF NO ERROR 


SEQ 0056 


F 
CZTEECO TMO3-TE16/TU77 DFT MACY11 30A(1052) 22-AUG=79 09:00 PAGE 57 
CZTEEC.P11 22-AUG-79 08:40 PROGRAM INITIALIZATION SEQ 0057 


001256 BNE DRIVES sELSE ASK USER TO RETYPE DRIVES 


;ROUTINE TO GET age (TE16/TU77"S) USER DESIRES TO TEST 
105037 SLAVES: CLRB @FERFLG ; CLEAR eae ty te 
MOV *SLVTBL, R1 K ALL SLAVES (64.) AS NOT 
#32.,R0° 70. BE TESTED.A 0 INDICATES THAT 
1$: (R1)+ A _DRIVE'S SLAVE IS NOT TO BE 
RO STEST ED 


1$ 
MO ASLVTBL,R1 ;R1 POINTS TO DRIVES SLAVE 
2$: DRVTBL (RO) ;BRANCH IF DRIVE IS TO BE TESTED 
BN 4$ ;®@ IS AVAILABLE 
3$: #8.,R1 STEP SLAVE PTR TO NEXT i be Ss 
RO [SLAVES AND INCREMENT DRIVE # 
#8. .RO CHECK ALL DRIVES 
2s ;AND WHEN ALL DRIVES CHECKED 
CHKSLV :GO CHECK SLAVE AVAILABILITY 


@4PRGF LG ;BRANCH IF USER SELECTED ALL 
5$ ;DRIVES 


RO,DRVNUM :GET DRIVE # 
014553 MOVB DIGTAB(RO) , a4] .DRV ;PREPARE USER ACTION MESSAGE 


TYPE,1.SLVS 
JSR C ;GET USER INPUT 

;SET PTR TO USER INPUT 

;AN ‘A* OR <CR> AS FIRST CHAR 
‘INDICATES TEST ALL SLAVES 


;SET "ALL" INDICATOR 


#SLVTBL »RI SMARK ALL SLAVES FOR ALL 


000040 6 ;DRIVES AS TO BE TESTED 
177777 : 4g hagine 


BN 6$ 
001131 @4PRGF LG BRANCH IF ALL WAS SELECTED 
CHKSLV 


000015 : #cR, (R3) :GET USER SELECTED SLAVES FOR 
000054 (R3) 4", “STEP PTR PAST ‘COMMA’ 


(R3)+ 
: (R3)+,R4 :AND MARK SELECED SLAVE 
177770 #177770,R6 sAS TO BE TESTED 
177777 MOVB = #= 1, (R4) 
BR 7$ 


ZASCERTAIN THAT SLAVES (TE16/TU77'S) SELECTED ARE AVAILABLE 
CHKSLV: CLR RO RO WILL CONTAIN = DRIVE # 
CLR R1 > AND Ri THE SLAVE # 
MO #SLVTBL,R2 ;SET PTR TO SLAVE TABLE 
1$: DRVTBL (RO) BRANCH IF DRIVE SELECTED 
. 3$ :& AVAILABLE FOR TEST 
2$: RO ‘INCREMENT DRIVE # 








CZTEECO TMO3-TE16/TU77 DFT 
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22-AUG- 


105737 


001161 
000010 
001131 


000010 
000010 


MACY11 304(1052) 


000004 


001006 


000041 


9$: 


10$: 


3$: 
4$: 


5$: 


6$: 


7$: 


8$: 


100$: 


G 
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TSTB <DRVTBL=1>(RO) 3**C WAS PREVIOUS DRIVE SELECTED 
BNE 9$ 3+*+C BRANCH IF AVAIL. 

- + ata ;**C ADJUST SLAVE POINTER 

TSTB @F4PRGFLG :++C WAS ALL SELECTED 

BNE 10$ 

ADD #8. ,R2 ;+*#C ADJUST SLAVE POINTER 

CMP #8. ,RO SLAVES. BRANCH TO 1$ IF NOT ALL 
BNE 1$ DRIVES CHECKED OTHERWISE EXIT 
BR 8$ 

CLR R1 SET SLAVE # 0 

TSTB (R2) [BRANCH IF DRIVE'S SLAVE IS SEL- 
BNE 6$ sECTED FOR TEST 

INC R1 ; INCREMENT SLAVE # 

INC R2 [STEP PTR TO NEXT SLAVE 

CMP #8. ,R1 ;GO TO 4$ IF ALL SLAVES NOT 
BNE 4$ ; CHECKED 

BR 2$ ; OTHERWISE GO TO 2$ ABOVE 

MOVB RO, @#DRVNUM ;PASS DRIVE & SLAVE # 

MOVB R1,@4SL VNUM 

JSR PC ,@#SLVAVA AND CHECK IF AVAILABLE 

BVC 5$ ;'V" SET INDCATES ERROR 

TSTB @4PRGFLG ;DO NOT TYPE ERROR MSG IF ALL 
BNE 7$ SLAVES SELECTED 

MOVB DIGTAB(RO) ,avE .DRV : ICATES ERROR. PREPARE ERROR 
MOVB DIGTAB(R1) ,@4E.NAVA 3 MESSAGE 

TYPE ,E.NSLV 

MOVB SP, ,@#ERFLG ;SET ERROR INDICATOR 

CLRB (R2) ;CLEAR SLAVE TABLE ENTRY 

BR GET NEXT SLAVE 

TSTB aVERFLG ;BRANCH IF ERROR 

BNE SLAVES ;ASK USER TO RETYPE SLAVES 
MOV MERRTRP, a#ERRVEC 


SCAN DRIVE AND SLAVE TABLE oat DRIVE/SLAVE COMBINATION TO TEST. 


RESTART ADDRESS--PROGRAM STAR 


TS HERE WHEN START ADDRESS = 210 AND 


;AFTER - SELECTED DRIVE/SLAVE COMBINATIONS HAVE BEEN TESTED. 


RSTRT: 


BEGIN 


600, SP ;SET STACK PTR 
RVNUM SET DRIVE AND SLAVE # 0 


:SET PTR TO SLAVE TABLE 


@4SLVNUM 
oot i Sere 
aFUNT FND ;CLEAR ‘UNIT FOUND’ IND 


hey oa RESTARTS HERE AFTER A DRIVE/SLAVE HAS BEEN TESTED. 
MOVB @4DRVNUM , RO 


GET DRIVE # 
@4SLVNUM ,R1 sAND SLAVE # 
@4SLVPTR,R2 GET SLAVE PTR 
+ Naat BRANCH IF LOADED VIA TMDP 


(R2) arty DRIVE #0,SLAVE #0 NOT TO 


TESTED. 
“phates ;BRANCH IF DRIVE AVAIL TO TEST 


sea 0058 | 
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2637 
38 


22-AUG-79 


005001 
062702 
005200 
022700 
001366 
000137 
105712 
001007 


010237 
105737 


000010 
000010 
013432 


000010 


MACY11 yeh gs | 
PROGRAM 


001135 


001000 


000026 


001012 
001014 


23: 


3$: 


S$: 


5$: 


6$: 


H 
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INITIALIZATION 
CLR R1 

ADD #8. ,R2 
INC RO 

CMP #8. ,RO 
BNE 1$ 

JMP @A4END 
TSTB (R2) 
BNE 4 

INC R2 

INC R1 
CMPB #8.,R1 
BNE 3$ 

CLR R1 


MOV R2,@4SLVPTR 
TSTB @FASFLG 
7$ 


BNE 

MOVB  #1,ASFLG 
TST CHNF LG 
BNE 7$ 

CLRB  @ASKEWFLG 
TYPE,1.SPD 

JSR PC,. INPUT 
MOV #INBUF .R3 
CMPB ss CR, (R33) 
BEQ 6$ 

BITB = #1, (R3) 
BEQ 6$ 


MOVB (R3) ,@ASKEWFLG 
CMP a 


JSR PC ,.GTSWR 


CLEAR SLAVE @# 

+ AND STEP PTR TO NEXT DRIVE'S 
the AND INCREMENT DRIVE # 
ZEXIT TEST IF ALL DRIVES 

; CHECKED OTHERWISE alata 
;SCAN FOR NEXT ‘UNIT 


;BRANCH IF SLAVE ON DRIVE IS 
;AVAILABLE THERWISE STEP 
PTR TO NEXT SLAVE 

; INCREMENT SLAVE # 

UNTIL ALL SLAVES CHECKED 
WHEN ALL SLAVES CHECKED 
SET SLAVE # 0 

AND CONTINUE SCAN 


; INDICATE THAT A ‘UNIT IS FOUND 
;SET DRIVE # 

SET SLAVE # 

SAVE SLAVE PTR 


;BRANCH IF IN CHAIN MODE 


3++B CLEAR SKEW (SPEED) TESTS SELECTED FLAG 
ASK USER IF HE WANTS TO RUN SPEED TESTS 


;GET USER INPUT 


;GET REPLY 
;DO NOT DO SKEW TESTS IF <CR> IS FIRST 


;BRANCH IF ‘N° 


;SET INDICATOR 
;BRANCH IF SOFTWARE SWR 
:NOT INVOKED 

;GET SWITCH REGISTER 


7$: 
;ROUTINE TO ASCERTAIN SLAVE TYPE AND LOAD APPROPRIATE SPECFICATION 
; TABLES =" + nat a STIMTBL AND GTIMTBL. 


8$: 


JSR PC ,RHINIT 


;GET BASE ADDRESS OF REGISTERS 
: INIT DRIVE/SLAVE 


MOV WENDTEL-STTBL RS: et TABLE 


MOV ASTIM 
MOV ATEI6TTBL,R2 
@4TE16 


E1 
BIT #4 ,DT(R5) 
9$ 
MOV #56. ,OSCTIM 


MOV #18. ,GAPDEL 
MOVB pal hess 


8$ 
BR 11$ 


LENGTH 
STARTING ADDRESS OF TABLE 
CET ADDRESS OF TE16 TIME TABLE 
SET FLAG = TE16 


BRANCH IF TU77 


SET US/TICK = 56 

SET 16 TICKS/MS 

:MOVE TE16 TIME AND GAP TABLES 
INTO STIMTBL & GTIMTBL 


EXIT ROUTINE 


SEQ 0059 
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2693 007744 012702 001664 
2694 007750 112737 000001 
2695 007756 012737 000120 
2696 007764 Ole 000003 
2697 007772 1 


2700 

2701 

2702 

2703 

2704 010000 105037 001126 
2705 010004 013705 001010 
2706 010010 010500 

2707 010012 062700 000006 
2708 010016 010501 

2709 010020 062701 1 


5 
2712 010034 052737 000100 


2718 010042 004737 005706 

2720 010050 105737 001130 
091006 

2722 010056 904737 005770 

2724 010064 004737 005602 


2726 010072 117702 170702 
2727 010076 042702 177740 


2729 010104 000004 015137 
2730 010110 004737 003134 


2735 1 001402 
2 134 016237 002444 
2737 010142 172 002444 


2748 010220 000004 015546 


MACY11 30A(1052) 


TSTOOO: CLRB 
MOV 


w1U77TTBL R2 
MOVB #1, a4TE16 
MOV #80. ,OSCTIM 


MOV GAPDEL 
10$:  MOVB (Roe, (R3)+ 

DEC 

BNE ‘Os 


11$: 


;NOTE THIS IS NOT A TEST 
; INITIALIZE eres FLAGS 
a4 TSTNUM 


OF TMBASE., R5 
MOV R5,RO 
ADD #FC,RO 
MOV R5,R1 


ADD ADS ,R1 

MOV #TIMER,R3 
CLRB a4 I TCNT 
BIS #100 ,Q4TKS 


;GET USER RUN PROCEDURE 
:1F SWR <05::00> IS NOT 0 THEN RUN TEST IN SWR<05::00> 


TOTHERWISE RUN ALL TESTS 
JSR PC,.REWIND 
99$ 


BN 
TYPE,L.HDR1 
MOVB DRVNUM ,R2 
MOVB SLVNUM ,R4 


MOVB DIGTAB(R2) ,a¥L .DRV 
DIGTAB(R4S) ,@AL.SLV 


;BRANCH IF NOT TE16 
TYPE ‘TE16° 


MOVB 

TYPE ,L.HDR2 

TSTB @ATE16 
E 3$ 


BN 
TYPE ,L.TE16 


:MOVE TU77 TI 
INTO STIMTBL & GTIMTBL 


I 
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9$: MOV 


GET ADDRESS OF _TU77 TIME TABLE 
SSET FLAG = TU77 
SET US/TICK = 80 


SET 3 TICKS PER .25MS 
ME AND GAP TABLES 


;SET TEST # 0 
[SET ADDRESS OF FIRST TMO3 REG 


RO CONTAINS ADDRESS OF FC REG 
:R1_ CONTAINS ADDRESS OF DS REG 
;SET JUMP ADDRESS TO TIMER 


;CLEAR SUBTEST ITERATION COUNT 
;SET KEYBOARD IE BIT 


REWIND SLAVE 


BVS ‘BRANCH IF ERROR ON REWIND 
TSB OFSKEWFLG *+4+B BRANCH IF SWEW (SPEED) TEST SELECTED 
JSR PC,WRITE :WRITE A RECORD 
INC (R5) “SET ‘GO’ BIT 
JSR PC ,WAITRDY ‘WAIT FOR READY 
BVS 99$ 
10$:  MOVB  aSWR,R2 :GET SWITCHES 
BIC #177740,R2 SCLEAR ALL BUT TES 
BEC 2$ *® BRANCH IF TEST H WAS SELECTED 
TYPE ,E.HDR :TYPE TEST # 
JSR PC, TYPOCT 
ASL R2 :FORM INDEX VALUE 
MOV NAMPTR(R2),1$ [GET ADDRESS OF TEST'S NAME 
TYPE ‘AND TYPE IT 
1$: WORD 
TYPE, CRLF 
MOV TSTTBL (R2) , @#SCPADR :SET SCOPE ADDRESS FOR TEST 
JMP aTSTTBL (Re) :GO TO TEST 
2s: BIT #SW10.aSWR ‘BRANCH IF TIMES NOT TO BE TYPED 


:GET DRIVE # 

;AND SLAVE # 

SET DRIVE AND SLAVE #°S 
INTO L.HDR2 MESSAGE 


CZTEECO ate Dac of A DFT 
08:40 


CZTEEC.P11 


010224 
0 


22-AUG-79 


000402 
000004 


000137 
012737 


010000 
010274 001002 


MACY11 30A(1052) 
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3$: 
4$: 


5$: 


99S: 


100$: 


BR 4$ 
TYPE ,L.TU77 


TYPE .L.SER 

JSR PC, SNPT 

TYPE ,L.HDR3 

TSTB. @ASKEWFLG 

BEQ 100$ 

JMP aA#SKEWTST 

HLT 

JMP TSTOOO 

MOV #TST001, @4SCPADR 


*TU77 
"SERIAL #' 
PRINT SLAVE SERIAL # 


3++B BRANCH IF SPEED TESTS NOT 
; SELECTED 
;GO DO SPEED TESTS 


;LOOP TEST AS LONG AS ERROR PERSISTS 
SE! SCOPE LOOP ADDRESS 


SEQ 0061 


CZTEECO TMO3-TE16/TU77 DFT 


CZTEEC.P11 


010324 
010326 
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112737 
004737 
012702 
004737 
005215 
005765 
100002 
000163 
004737 
102403 
004737 
000401 
104400 
104000 


112737 
004737 
005215 
005710 
001404 
032711 
001017 


000001 
010326 
005706 


87 
000032 
005020 
005602 
005056 


000002 
005770 
010404 
004730 
000032 
005020 
005602 
005056 


000003 
005770 


040000 


MACY11 art 


001126 


001126 


001126 


START 


K 5 
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TESTS 


-SBTTL START OF TESTS 
BOT 


TEST O01 = WRITE FROM 
THs 1 TEST WILL MEASURE ACCELERATION DELAY REQUIRED TO 


THE TAPE APPR 


OXIMATELY SEVEN (7) INCHES FORWARD 


:™0 
FROM DEAD STOP BEFORE STARTING TO TRANSFER DATA. 


3; THIS TEST MEASURES TIME FROM ‘GO‘=1 TO 
MOVB 1, @4TSTNUM 


*ACCL*=0. 


zSET TEST 
7SET RETURN PC FROM TIMER 
[REWIND SLAVE 


BRANCH IF ERROR ON REWIND 
7GO SETUP WRITE COMMAND 


ser "G0" BIT" 

;BRANCH WHEN ‘ACCL‘=0 

;GO TO TIMER & RETURN VIA R2 
;WAIT FOR COMMAND TO FINISH 


BRANCH IF ERROR 
:GO CHECK TIME 


SET TEST # 2 
INITIATE WRITE C 


>SET RETURN PC FROM TIMER 
SET ‘GO" BIT 

BRANCH WHEN ‘ACCL'=0 

:GO TO TIMER & RETURN VIA R2 


WAIT FOR 

BRANCH IF ERR 

:GO CHECK TIME ORE CORDED 
EXIT VIA SCOPE 


«REPORT ERROR 


OWN 
; THIS ig Moar TIME FROM ‘FC REG*=0° TO "SWDN*=1. 


7SET_TESTAS 
: INITIATE WRITE COMMAND 
:SET * BIT 


;BRANCH WHEN WRITING FINISHED 
;MONITOR ERROR BIT 


TST001: 
MOV #1$,R2 
JSR PC, .REWIND 
BVS 99$ 
JSR PC ,WRITE 
JSR PC. TIMON 
INC (R5) 
1$: TST TC(RS) 
BPL 
JMP TIMER(R3) 
2$: JSR PC ,WAITRDY 
BVS 99$ 
JSR PC, TIMOK 
BR 100$ 
99$: HLT 
100$: SCOPE 
:TEST 002 - WRITE START 
‘THIS TST 7 MEASURES TIME FROM 'GO'=1 TO 'ACCL'=0. 
TSTO02: 2,a4TSTNUM 
ny PC WRITE 
MOV #1$,R2 
JSR PC, TIMON 
INC (R5) 
1$: TST TC(RS) 
BPL 2$ 
JMP TIMER(R3) 
2$: JSR PC,WAITRDY 
BVS 99$ 
JSR PC, TIMOK 
BR 100$ 
99$: HLT 
100$: SCOPE 
:TEST 003- WRITE SHUTD 
TST003: #3, a4TSTNUM 
iy PC WRITE 
INC (R5) 
1$: TST (RO) 
BEQ 2$ 
BIT #ERR, (R1) 
BNE 99$ 


SEQ 0062 
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010464 


010524 


010526 
010534 
010540 


010542 
010554 
010556 
010 

010572 


010574 
010574 
0600 


000772 


004737 
010702 
032711 

002 


112737 
004737 

005215 
005710 
001404 
032711 
001026 
000772 
032711 
001004 


004737 
102403 
004737 
000401 


104400 
104000 


112737 
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004730 
000020 
005020 
005602 
005056 


000004 
005770 


040000 


000020 
040000 


004730 
000020 
005020 
005602 
005056 


000005 


004737 ~ 005706 
02422 


1024 
004737 
012702 


006006 
010666 


MACY11 30A(1052) 
START OF 


001126 


001126 


BR 
2$: 


3$: BIT 


4$: JSR 


99$: HLT 


100$: SCOPE 
WRITE SETTLEDOWN 


TEST 004 - 


2 
22-AUG-79 09:00 PAGE 63 
TESTS 


1$ 


PC, TIMON 
PC,R 
ASDWN, (R1) 
TIMER(R3) 
PC ,WAITRDY 
99$ 


PC, TIMOK 
100$ 


; TURN TIMER ON 

;LOAD RETURN PC FROM TIMER 
;BRANCH WHEN DS <SDWN> SETS 
:GO TO TIMER & RETURN VIA R2 
;WAIT FOR READY 

:GO CHECK TIME RECORDED 


;REPORT ERROR 


>THIS TEST MEASURES TIME FROM 'SWDN'=1 TO "SWDN'=0. 


TST004: 


1$: TST 


2s: BIT 


3$: 


5$: JSR 


99$: HLT 


100$: SCOPE 


#4 ,@ATSTNUM 


PC WRITE 
(R5) 

(RO) 

2$ 

MERR, (R1) 
99$ 

1$ 

#SDWN, (R1) 
MERR,(R1) 
99$ 

2$ 


PC, TIMON 
PC Re 
ASDWN, (R1) 
TIMER(R3) 
PC ,WAITRDY 
99$ 


PC, TIMOK 
100$ 


44M 005 ~ READ FROM BOT 


HIS ny Meee is TIME FROM *GO'=1 TO 
-@4TSTNUM 


+$7005: 


"SR 

BVS 
JSR 
MOV 


PC REWIND 
99$ 

PC READ 
#1$,R2 


SET 'GO" BIT 
;BRANCH WHEN WRITING F INI SHED 
;CHECK ERROR BIT 


;WAIT FOR ASSERTION OF “SDWN" 
:MONITOR ERROR BIT 


; TURN TIMER ON 

;SET RETURN PC FROM TIMER 
BRANCH WHEN SWDN CLEARS 

;GO TO TIMER & RETURN VIA R2 


;WAIT FOR READY 


*ACCL'=90. 


SET TEST #5 


SREWIND SLAVE 
;BRANCH IF ERROR ON REWIND 


SET RETURN PC FROM TIMER 


SEQ 0063 


CZTEECO att ary of A DFT 
08:4 


CZTEEC.P11 


33 


BIBIVBBVB 
CONAULSWN oO 


2928 


010660 
010664 


010 
010712 


010714 
010716 


010750 


010752 


01 
011024 


011026 


011056 


22-AUG-79 


004737 
005215 


005765 
10000 

00016 

004737 
102403 
004737 
000401 


104400 
104000 


112737 
004737 


004730 


000032 
005020 
005602 
005056 


000006 
006062 
006006 
010752 
004730 
000032 
005020 


005602 
005056 


004730 
000020 


M 
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START OF TESTS 


001126 


001126 


JSR PC,TIMON 


INC (R5) 
1$: TST TC(RS) 
BPL 
JMP TIMER(R3) 
2s: JSR PC ,WAITRDY 
BVS 99$ 
JSR PC, TIMOK 
BR 100$ 
99$: HLT 
100$: SCOPE 


TEST 006 = READ START 


:THIS TEST MEASURES TIME FROM 'GO'=1 TO 


TSTO06: MOVB #6 ,@ATSTNUM 
JSR a" -BK 


JSR PC READ 
MOV #i$,R2 
JSR PC, TIMON 


INC (R5) 
1$: TST TC(RS) 
BPL 2$ 
JMP TIMER(R3) 
2s: JSR PC ,WAITRDY 
BVS 99$ 
JSR PC, TIMOK 
BR 100$ 
99$: HLT 
100$: SCOPE 


;TEST 007 = READ SHUTD 


; TURN TIMER ON 
;SET ‘GO* BIT 


;BRANCH WHEN ‘ACCL* RESETS 
GO TO TIMER & RETURN VIA R2 
;WAIT FOR READY 


BRANCH IF ERROR 
CHECK RECORDED TIME 


"ACCL*=0. 


SET TEST #6 
[WRITE A RECORD & BACK SPACE 


SET RETURN PC FROM TIMER 
; TURN TIMER ON 

SET ‘GO’ BIT 

;BRANCH WHEN ‘ACCL" RESETS 


;GO TO TIMER & RETURN VIA R2 


;THIS_TEST MEASURES HIME wee "FC REG'=FRAME COUNT TO "SWDN‘=1. 
MOVB #7 ,@ATS ;SET TEST 


TST007: 
JSR PC. WRT. ~ 
BVS 
JSR PC READ 
INC (R5) 
1$: CMP #-FRMCNT , (RO) 
BEQ 
BIT #ERR, (R1) 
BNE 99$ 
BR 1$ 


2$: 
JSR =D tae 


PC,R 
BIT #SDWN, (R1) 
3$ 


T #7 


[WRITE A RECORD & BACK SPACE 
‘BRANCH IF ERROR 


SET ‘GO* BIT 


WAIT FOR FRAME COUNT TO 
= # OF FRAMES WRITTEN 


“MONITOR ERROR BIT 


; TURN TIMER ON 
SET RETURN PC FROM TIMER 
BRANCH WHEN SDWN SETS 


SEQ 0064 


CZTEECO TMO3-TE16/TU77 DFT 
79 08:4 


CZTEEC.P11 22- 


ooocoeco 
~~ -2w YH 
3 =e 4 2) 2 2 Ss 
x 
N 


3 


011060 


td ad ad ad paeanes Gaiichatah asabatatadbad 
a 
SSF VBSENE FAKKK SRNEAR 


g 8 


at ad od 
Arvo 


oo oCOoOOoO COCOCOSoO SCOCOoO GCO00o CcOOCCOoOOoO 


— 44 oo —~ +s — + a — 4 4 4S HS 
— es es — »~ 4 a 4 2 ss SH 4 ss ss 


mr 
Nm 
N 


-AUG= 
000163 


112737 
012702 
37 


005215 
7? 


005020 
005602 
005056 


0000 
011170 
006062 


000020 


004730 
000020 


005020 
005602 
005056 


000011 
011270 
005770 


005602 


005310 
006024 


MACY11 30A(1052) 
START 


3$: 


99$: 
100$: 


N 
22-AUG-79 09:00 PAGE 65 
OF TESTS 


HLT 
SCOPE 


TIMER(R3) 
PC ,WAITRDY 
99$ 

PC, TIMOK 


1008 


TEST 010 = READ SETTLEDOWN 


001126 TsT 


1$: 


2s: 


3$: 


000012 4$: 


5$: 


99$: 
100$: 


Bad 1 011-READ REVERSE START 
THIS My MEASURES TIME FROM ‘GO'=1 TO 


001126 7ST011: the ta NUM 


PC ,WRT.BK 
99$ 


PC READ 
(R5) 


(R1) 

2s 
#ERR,(R1) 
99$ 

1$ 

#SDWN, (R1) 
MERR, (R1) 
99$ 

2s 


PC, TIMON 
ASDWN,DS(R5) 
TIMER(R3) 

PC ,WAITRDY 
99$ 

PC, TIMOK 
100$ 


PC WRITE 
cR5) 
PC,WAITRDY 
99$ 

PC DELAY 
PC -REVRD 


;GO TO TIMER & RETURN VIA R2 


REPORT ERROR 


> THIS TEST MEASURES TIME FROM ‘SWDN'=1 TO ‘SWDN'=0. 
010: he es og NUM 


et TEST #10 
;SET RETURN PC FROM TIMER 
[WRITE A RECORD & BACK SPACE 


SET "GO" BIT 
;WAIT FOR READY 


BRANCH WHEN SET 
; CHECK ERROR BIT 


;WAIT FOR ASSERTION OF ‘SDWN' 
:MONITOR ERROR BIT 


; TURN TIMER ON 
;WAIT FOR NEGATION OF SDWN 


;GO TO TIMER & RETURN VIA R2 


*ACCL*=0. 


SET RETURN PC FROM TIMER 


[WRITE A RECORD 
:SET *GO* BIT 


WAIT FOR TAPE MOTION TO STOP 


SEQ 0065 
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c7T 
CZTEEC.P11 22=AUG-79 08:40 START OF TESTS SEQ 0066 
3985 911262 004737 004730 JSR PC, TIMON ; TURN TIMER ON 

2986 011 005215 INC cr5) [SET ‘GO’ BIT 

2988 011270 005765 000032 1$: TST TC(RS) ;BRANCH WHEN ‘ACCL' = 0 
2989 011274 S008 BPL 

290 011276 000163 005020 JMP TIMER(R3) 7GO TO TIMER & RETURN VIA R2 
$998 011302 004737 005602 23: JSR PC ,WAITRDY 

2993 011306 102403 BVS yy ;BRANCH IF ERROR 

29% 011310 006737 005056 JSR PC, TIMOK 

2995 017314 000401 BR 100$ 

$oe9 011316 104400 99$: HLT 

2998 011320 104000 100$: SCOPE 

3000 : TEST 012-READ REVERSE SHUTDOWN 

3001 ‘THIS TEST MEASURES TIME FROM 'FC REG’ = FRAME COUNT TO ‘SDWN'=1. 
3002 011322 112737 000012 001126 TST012: MOVB  #12,a#TSTNUM 

3003 011330 012702 011400 MOV #3$,R2 7SET RETURN PC a TIMER 
3004 011334 004737 005770 JSR PC WRITE [WRITE A RECOR 

3005 011340 005215 INC (R5) [SET ‘GO’ BIT 

3006 011342 004737 005602 JSR PC WAI TRDY 

3007 011346 102427 BVS 99$ 

3008 011350 004737 006024 JSR PC ,REVRD 

3009 011354 005215 INC (R5) :SET *GO* BIT 

3011 011356 022710 000400 1$: CMP #-FRMCNT, (RO) ;BRANCH WHEN FRAME COUNT 
3012 011362 BEQ 2s z= # OF RECORD WRITTEN 
3013 011364 032711 040000 BIT #ERR, (R1) [MONITOR ERROR BIT IN "DS* REG 
3014 011370 001016 BNE 99$ 

3015 011372 000771 BR 1$ 

3016 

3017 011374 2$: 

3018 011374 004737 004730 JSR PC, TIMON ;TURN TIMER ON 

3019 011400 032711 000020 3$: BIT ASDWN, (R1) ;BRANCH WHEN SDWN SETS 
3020 011404 001002 BNE 4 

3021 011406 000163 005020 JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
3023 011412 004737 005602 4$: JSR PC, ,WAITRDY WAIT FOR READY 

3024 011416 102403 BVS 99$ 

3025 011420 004737 005056 JSR PC, TIMOK 

3026 011424 000401 BR 100$ 

3028 011426 104400 99$: HLT 

3029 011430 104000 100$: SCOPE 

3031 ;TEST 013-READ REVERSE SETTLEDOWN 

3032 THIS Test MEASURES TIME FROM 'SDWN'=1 TO 'SDWN'=0. 

3033 011432 112737 000013 001126 TST013: #13, a4TSTNUM 

3034 011440 012702 011524 mv #4$.R2 :SET RETURN PC FROM TIMER 
3035 011444 004737 005770 JSR PC WRITE ‘WRITE A RECORD 

3036 011450 005215 INC (R5) ‘SET 'GO’ BIT 

3037 011452 004737 005602 JSR PC ,WAITRDY 

3038 011456 102435 BVS 

3039 011460 004737 006024 JSR PC .REVRD 

3040 011464 005215 INC (R5) :SET *GO' BIT 
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CPTEEC. P11 22-AUG-79 08:40 START OF TESTS SEQ 0067 







3041 
$042 011466 105711 1$:  -TSTB. (RT) :BRANCH WHEN 
3043 011470 100404 BMI ss ZREADY SETS 
3044 011472 032711 040000 BIT —- #ERR, (R1) 
3045 011476 001025 BNE 99S 
$046 011500 000772 BR 1$ 
3048 011502 032711 000020 28: BIT ~—s #SDWN, (R1) 
3049 011506 001004 BNE $ 
3050 011510 032711 040000 BIT #ERR,(R1) 
3051 011514 001016 BNE 99S 
3052 011516 000771 BR 2s 
3054 011520 38: 
3055 011520 004737 004730 JSR PC, TIMON ; TURN TIMER ON 
3056 011524 032711 000020 4$: BIT #SDWN, (R1) ;BRANCH WHEN SWDN = 0 
3057 011530 001402 BEQSts«éSS 
3058 011532 000165 005020 IMPs TIMER(R3) :GO TO TIMER & RETURN VIA R2 
3060 011536 004737 005602 5$: JSR PC ,WAITRDY ;WAIT FOR READY 
306i 011542 102403 BvS «99S 
3062 011544 004737 005056 JSR PC, TIMOK 
3063 011550 000401 BR 1008 
3065 011552 104400 99$: HLT 
011554 104000 100$: SCOPE 


tg 


3069 011556 : 

3070 011556 004737 005706 JSR PC,.REWIND REWIND SLAVE 

3071 011562 102401 BVS 99$ ;BRANCH IF ERROR ON REWIND 
3072 011564 102002 BVC 100$ 

3073 011566 104400 99$: HLT 

3074 011570 000772 BR A 

3075 011572 100$: 







; TEST 014-TURN AROUND DELAY (F ORWARD~RE VERSE ) 


3078 :THIS TEST MEASURE S TIME FROM 'GO'=1 (READ REVERSE) TO ‘ACCL'=0 
011572 112737 000014 001126 TST014: MOVB 4 a#1STNUM 
011600 012702 011632 MOV 425. R2 :SET RETURN PC FROM TIMER 
011604 004737 005770 JSR PC WRITE *WRITE A RECORD 
011610 005215 INC R5) :SET ‘GO’ BIT 
011612 004737 005602 JSR PC ,WAITRDY 
011616 102420 BVS 99$ 
011620 004737 006024 1$: JSR PC ,REVRD ; READ THE RECORD (REVERSE) 
011624 004737 004730 JSR PC. TIMON STURN TIMER ON 
011630 005215 INC (R5) ‘SET 'GO' BIT 
011632 005765 000032 2$: TST TC(RS) :WAIT FOR "ACCL* = 0 
011636 100002 BPL 3$ 
011640 000163 005020 JMP TIMER(R3) 3;GO TO TIMER & RETURN VIA R2 
011644 004737 005602 3$: JSR PC WAI TRDY 
011650 102403 BVS 
011652 004737 005056 JSR PC, TIMOK 
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011€56 000401 BR 100$ 


104400 99S: HLT 
104000 100$: SCOPE 


:TEST 015= TURN AROUND DELAY (REVERSE-F ORWARD) 
*THIS TEST MEASURES TIME FROM 'GO'=1 (READ) TO ‘ACCL*=0. 
112737 000015 001126 TST015: MOVB #15,a#TSTNUM 
012702 011740 MOV #2$,R2 sSET RETURN PC FROM TIMER 
004737 005770 PC ,WRITE ‘WRITE A RECORD 
005215 (R5) “SET ‘GO’ BIT 
004737 005602 PC ,WAITRDY ‘WAIT FOR READY 
004737 006024 PC REVRD :READ A RECORD IN THE 
005215 cr5) : ’ BIT 


SET °GO 
005602 PC ,WAITRDY 
99$ 


Reaine 


NNN 
WN NN = 


S&S EY 


004737 
102420 


ao £O BNO 


006006 ; PC READ :READ RECORD FORWARD 
004730 PC’ TIMON “TURN TIMER ON 
(R5) :SET 'GO’ BIT 
000032 : TERS) :WAIT FOR *ACCL* = 0 
005020 TIMER(R3) :GO TO TIMER & RETURN VIA R2 
005602 : PC,WAITRDY 
99$ 


005056 PC, TIMOK 
100$ 


TO 2 a COOoOCOOoO 
SODBNARARWrUMCBSRURAR Ss 


WNWWAWWNWNWWAWNWNANAWNWANWNAAAA 
NNN NNN NN 


as 
ar 


7 
7 
760 


99$: HLT 

100$: SCOPE 

; TEST 016-GAP SIZE (STOP HALF) 
001126 TST016: MOVB #16, 04TSTNUM 
MO . ;SET RETURN PC FROM TIMER 
PC, WRITE WRITE A RECORD 
(R5) ;SET ‘GO’ BIT 
PC, ,WAITRDY 
99$ 


PC DELAY ;DELAY 350 MS 
PC ,REVRD READ REVERSE RECORD 
PC, TIMON ; TURN TIMER ON 


iT : 

(R5) :SET 'GO' BIT 

(RO) ;WAIT FOR FRAME COUNT > 0 
FIMER (R3) :GO TO TIMER & RETURN VIA R2 
PC .WAITRDY ;WAIT FOR READY BIT TO SET 


PC,TIMOK CHECK TIME 
100$ 


Ww 


WWWNWWNAINWWNWS 
a ed ed ed ed ed ed 
SHREW 
VISSBUE 


pat 
* 
Ww 
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Ww 
w 
Ww 


WWWNWWNWNWNWNANWNNNANWAAA 
ee ee eS ee ee Ss | 
steiner: 


oO 
Oo 


3182 


—— 


WNWWNWWANWWNNNWNWNWNAWAAS 
ad ced aad and ad aad ee an ca ed and ed eed ed 
BSLRIRASLSSELRARA 


012062 
012064 


o 

— 
= 
s 
o- 


Oo BOOCOCOOCOOCOOCoCOO 

2 sabato aatad dabad aad 

NM MoNMNMONMNONMOPofononofoery» 
REFSRVNSENKKES 


46 
012150 


012170 


012172 
012174 


012176 


012272 
012276 


_ =" 
oO —— 
é 8 


$2 


004737 


012702 
004737 


22-AUG-79 08:40 


sg A 


MACY11 30A(1052) 

START OF TESTS 

99%: HLT 

100$: SCOPE 

s TEST 017 -GAP SIZE (START HALF) 
001126 TST017: MOVB al. an] STNUM 

JSR PC WRITE 
Ee ae 
BvS 99$ 
JSR PC ,REVRD 
INC (R5) 
JSR PC ,WAITRDY 
BVS 99$ 
JSR PC,,DELAY 
JSR PC READ 
JSR PC, TIMON 
INC (R5) 

1$: TST (RO) 
BNE 2$ 
JMP TIMER(R3) 

2s: JSR PC ,WAITRDY 
BVS 99$ 
JSR PC, TIMOK 
BR 100$ 

99$: HLT 

100$: SCOPE 


; TEST 020—- GAP SIZE (CINTERRECORD) 
;THIS TEST MEASURES TIME FROM ‘GO*=1 TO 


001126 TS 


2$: 


T020: MOVB #20,a4TSTNUM 
MOV #1$,R2 
JSR “ee 


INC (R5) 
JSR PC,WAITRDY 
BVS 99$ 

JSR PC WRITE 
INC (R5) 

JSR PC ,WAITRDY 
BVS 99$ 

JSR PC ,REVRD 
INC (R5) 

JSR PC,WAITRDY 
BVS 99$ 


JSR PC ,REVRD 
JSR PC,TIMON 


INC (R5) 
TST (RO) 
BNE 


2$ 
JMP TIMER(R3) 
JSR PC,WAITRDY 
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;SET RETURN PC FROM TIMER 
;WRITE A RECORD 

:SET_*GO* BIT 

[WAIT FOR READY 

— REVERSE THE RECORD 
;SET_*GO* BIT 

[WAIT FOR 7 * 

BRANCH ON ERR 

:WAIT FOR TAPE OROT ION TO STOP 
READ ph my 

iT TIMER ON 

:SET "GO" BIT 

;WAIT FOR FRAME COUNT > 0 
;GO TO TIMER & RETURN VIA R2 
;WAIT FOR READY 


CHECK TIME 


"FC REG* >0. 
7 SET oy PC FROM TIMER 
RECORD 


[WAIT FOR READY 

:WRITE SECOND RECORD 

SET ‘GO’ BIT 

;WAIT FOR READY 

sREAD Ay) SECOND RECORD 
;SET_ ‘GO’ BIT 

;WAIT FOR READY 

;READ yt ae FIRST RECORD 
; TURN TIMER ON 


:SET *GO' BIT 


WAIT FOR FRAME COUNT > 0 


;GO TO TIMER & RETURN VIA R2 
;WAIT FOR READY 


SEQ 0069 


aon 
NENG 
~+— 


FC 
C. 


mn 
man 


Reese eee ess 


mr 
nN— 


P11 


012316 


012374 


012422 


012424 
012430 
012434 
012440 
012442 


012462 
012466 
012470 


102403 
004737 
01 


104400 
104000 
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005056 


000021 
012462 
005706 
001120 
000021 
005770 
005602 
005340 
001014 
000021 


006024 
005602 


000020 
001060 
006006 
005602 
006006 
004730 


000006 
005020 


MACY11 30A(1052) 
START OF 


001126 


001120 
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TESTS 


BVS 99% 
JSR PC, TIMOK 
BR 106$ 
99%: HLT 
100$: SCOPE 


TEST 021= GAP CONSISTAN 

:THIS TEST MEASURES TIME “FROM *GO"=1 TO ‘FC REG* > 0. 

;THE TEST REWINDS THE TAPE, vay 4 17 RECORDS WITH A DELAY FROM 1-16 MS 

BETWEEN EACH WRITE COMMAND. AFTER THE 17. RECORDS ARE ee tt THE 

; PROGRAM READ REVERSES 16 RECORDS. AT THIS POINT 5 TAPE IS STOPPED BE- 
AND SECOND RECORD. A READ COMMAND IS EXECUTED TO READ 

:THE 16 RECORDS WITH THE TIME BETEWEN GO=1 TO FC > 0 STORED IN ‘GAPTBL' 

[FOR EACH RECORD READ. AFTER 16 RECORDS HAVE BEEN READ THE TIME IS VER- 

; IFIED FOR EACH READ. AFTER ALL RECORD TIMES ARE VERIFIED THEY ARE AVER- 

ZAGED AND PLACED IN THE ‘ATIMTBL' (BY SCOPE). THE ABOVE PROCESS IS RE- 

;PEATED FOR EACH ITERATION. 


TSTO21: MOVB 
MOV 


aehe @4TSTNUM 
#4$,R2 


;SET RETURN yay FROM TIMER 


JSR PC, .REWIND [REWIND SLAV 
BVS 99$ ‘BRANCH IF ERROR ON REWIND 
CLR DELTIM [CLEAR VARIABLE DELAY TIME 
MOV #17.,RO [SET # OF RECORDS TO WRITE 
1$: JSR PC WRITE SWRITE 1 17. RECORDS 
INC (R5) *SET "GO BIT 
JSR PC,WAITRDY WAIT FOR READY 
BVS 99$ 
JSR PC,DELA :DELAY BEFORE WRITING NEXT REC. 
ADD GAPDEL , DELTIM [ADD 1MS TO DELAY TIME 
DEC RO [DECREMENT RECORDS WRITTEN COUNT 
BNE 1$ 
MOV #17.,R0 :SET # OF RECS. TO REVERSE READ 
2$: JSR PC ,REVRD SREVERSE READ 17. RECORDS 
INC (R5) 7SET 'GO' BIT 
JSR PC, WAI TRDY ‘WAIT FOR READY 
BVS 99$ 
DEC RO :DECREMENT RECORD COUNT 
BNE 2$ 
MOV #16. ,RO :SET # OF RECORDS TO READ 
MOV #GAPTBL ,R1 [SET PTR TO GAP TABLE FOR TEST 
JSR PC RE *READ A RECORD 
INC (R5) ‘SET ‘GO’ BIT 
3$: JSR PC ,WAITRDY :WAIT FOR READY 
BVS 99$ 
JSR PC READ :READ NEXT RECORD 
JSR PC’ TIMON > TURN TIMER ON 
INC (R5) “SET *GO' BIT 
4$: Ist EC(RS) :WAIT FOR FRAME COUNT > 0 
MP TIMER(R3) :GO TO TIMER & RETURN VIA R2 


SEQ 0070 


012610 
012614 


012616 
012620 


012622 


012666 
012672 
012674 


004737 
102446 
010421 
005300 
001355 
105037 
012700 
012701 


000060 
005215 
022710 
001004 
032711 


005602 


000004 


005056 


000022 
012710 
005706 


001700 
006124 


163400 
040000 


MACY11 30A(1052) 


001124 


001126 


006032 


START OF 


5$: 


6$: 


7$: 


8$: 


99%: 
100$: 
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TESTS 


PC WAI TRDY 
99$ 
R4,(R1)¢ 
RO 

3$ 

@AGAP 
#16.,R0 
#GAPTBL ,R1 


(R1)+,R4 
GAPOK 


TEST O22-DATA TIME (800BP]) 
3 THIS TEST MEASURES THE TIME FROM FC REG >-6400 TO ‘RDY® = 1. 
MOVB #022, a4TSTNUM 


TST022: 


1$: 


#3$,R 
PC, .REWIND 
99$ 


R3 
# 


—— . 
#ERR,(R1) 


#NORM11, TC (RS) 
CMD 


(RO) 


SEQ 0071 


;WAIT FOR READY 


STORE TIME IN GAPTBL 
ZDECREMENT # OF RECORDS READ 


;SET GAP # 0 


GET GAP TICK COUNT 
CHECK TIME 

; INCREMENT GAP # 

BRANCH IF ALL GAPS NOT CHECKED 


; SETUP TO AVERAGE GAP SIZES 
;SET PTR TO TABLE 
;CLEAR ‘SUM' REGISTERS 


;ADD ALL GAP SIZES TOGETHER 


—Oo 
mn 


BY 16. 
NG 4 PLACES RIGHT 


sMOVE AVERAGED TIMES TO R& 
; CHECK AVERAGED TIMES 


;SET RETURN PC FROM TIMER 
REWIND SLAVE 

;BRANCH IF ERROR ON REWIND 
:SET 800 BPI 

;WRITE 3200. WORD RECORD 


SET °GO* BIT 
sWAIT FOR WRITING TO START 
;MONITOR ERROR BIT 
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CZTEEC.P11 22-AUG-79 08:40 START OF TESTS SEQ 0072 
3321 012700 001022 BNE 99$ 
3322 012702 000771 BR 1$ 
3325 
3324 012704 23: 
3325 012704 004737 004730 JSR PC, TIMON ; TURN TIMER ON 
3326 012710 105711 3$: TSTB (R1) ;BRANCH WHEN READY SETS 
3327 012712 100402 BM! 4$ 
$355 012714 000163 005020 JMP TIMER(R3) ;GO TO TIMER & RETURN VIA R2 
3330 012720 012700 000003 4$: MOV #3,R0 SET SHIFT COUNT 
3331 012724 006204 5$: ASR RG 
3332 012726 005300 DEC RO 
3333 012730 001375 BNE 5$ 
3334 012732 004737 005602 JSR PC ,WAITRDY 
3335 012736 102403 BVS 99$ 
3336 012740 004737 005056 JSR PC, TIMOK CHECK TIME 
Say 012744 000401 BR 100$ 
3339 012746 104400 99$: HLT 
tut 012750 104000 100$: SCOPE 
3342 TEST 023-DATA TIME (1600B8P1) 
3343 ;THIS_TEST MEASURES THE TIME FROM FC REG >-6400 TO ‘'RDY® = 1. 
3344 012752 112737 000023 001126 1ST023: MOVB #023 ,a4TSTNUM 
3345 012760 012702 013046 MOV #3$,R2 SET RETURN PC FROM TIMER 
3346 012764 004737 005706 JSR PC, -REWIND ;REWIND SLAVE 
3347 012770 102442 BvS 99$ BRANCH IF ERROR ON REWIND 
3348 012772 042765 003700 000032 BIC #3700, TC(R5) CLEAR CURRENT DENSITY 
3349 013000 052765 002300 000032 BIS #PE1600, TC(R5) SET 1600 BPI 
3350 013006 004337 006124 JSR R3,TMCMD [WRITE 3200. WORD RECORD 
3351 013012 016674 -WORD WITBUF 
3352 013014 171600 WORD 3200 
3353 013016 163400 WORD -6400 
3354 013020 000060 -WORD WFWD 
$302 013022 005215 INC (R5) SET ‘GO" BIT 
3357 013024 022710 163400 1$: CMP #-6400., (RO) ;BRANCH WHEN WRITING STARTS 
3358 013030 001004 BNE $ 
3359 013032 032711 040000 BIT HERR, (R1) :MONITOR ERROR BIT 
3360 013036 001017 BNE 99$ 
3361 013040 000771 BR 1$ 
3362 
3363 013042 2$: 
3364 013042 004737 004730 JSR PC, TIMON ; TURN TIMER ON 
3365 013046 105711 3$: TSTB (R1) ;BRANCH WHEN READY SETS 
3366 013050 100402 BMI 4$ 
tice 013052 000163 005020 JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
3369 013056 006204 4$: ASR R4 :DIVIDE TIME BY 4 
3370 013060 006204 ASR R4 
3371 013062 004737 005602 JSR PC ,WAITRDY 
3372 013066 102403 BVS 99$ 
3373 013070 004737 005056 JSR PC,TIMOK CHECK TIME 
Sine 013074 000401 BR 100$ 


3376 013076 104400 99$: HLT 
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CZTEEC.P11 22=AUG=79 08:40 ART OF TESTS SEQ 0073 
33277 013100 104000 100$: SCOPE 
3379 : TEST 024~ERASE 
3380 “THIS TEST MEASURES TIME FROM 'GO'=1 TO ‘RDY'=1. 
3381 013102 112737 000024 001126 TST024: MOVB #24,a#TSTNUM 
3382 013110 012702 013172 MOV #2$,R2 :SET RETURN PC FROM TIMER 
3383 013114 004737 005706 JSR PC, .REWIND SREWIND SLAVE 
3384 013120 102436 BVS 99$ ‘BRANCH IF ERROR ON REWIND 
3385 013122 004737 005544 JSR PC ,RHINIT [SET NRZ 
3386 013126 004737 005770 JSR PC WRITE ‘WRITE A RECORD 
3387 013132 005215 INC (R5) “SET ‘GO BIT 
3388 013134 004737 005602 JSR PC,WAITRDY 
3389 013140 102426 BVS 99$ 
3390 013142 012737 013150 001002 MOV #1$, @4SCPADR 
3391 013150 004337 006124 1$: JSR R3, a4 TMCMD 
3392 013154 000000 .WORD 0 
3393 013156 000000 :WORD 0 
3394 013160 000000 “WORD 0 
2395 013162 000024 “WORD ERASE 
3396 013164 004737 004730 JSR PC, TIMON : TURN TIMER ON 
3397 013170 005215 INC (R5) “SET 'GO' BIT 
3399 013172 105711 2$: TSTB. ~—- (R11) :BRANCH WHEN READY SETS 
3400 013174 10040 BM! 4 
3401 013176 000163 005020 JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
3403 013202 737 005602 3$: JSR PC ,WAITRDY 
3404 013206 102403 BVS 99$ 
3405 013210 004737 005056 JSR PC, TIMOK 
3406 013214 000401 BR 100$ 
3408 013216 104400 99$: HLT 
3409 013220 104 100$: SCOPE 
3411 :TEST 025 TAPE MARK 
3412 >THIS TEST MEASURES TIME FROM 'GO'=1 TO ‘RDY*=1. 
3413 013222 112737 000025 001126 TST025: MOVB.  #25,a#TSTNUM 
3414 013230 012702 013272 MOV #1$,R2 :SET RETURN PC FROM TIMER 
3415 013234 004737 005770 JSR PC,WRITE ‘WRITE A RECORD 
3416 013240 005215 INC (R5) “SET ‘GO’ BIT 
3417 013242 004737 005602 JSR PC,WAITRDY 
3418 013246 102423 BVS 9 
3419 013250 004337 006124 JSR R3, a#TMCMD 
3420 013254 000000 .WORD 0 
3421 013256 000000 “WORD 0 
3422 013260 000000 “WORD 0 
3423 013262 000026 “WORD WFMK 
3424 013264 737 004730 JSR PC, TIMON : TURN TIMER ON 
3428 013270 005215 INC (R5) 'SET 'GO’ BIT 
3427 013272 105711 1$: TSTB.~—_ (R11) :BRANCH WHEN READY SETS 
3428 013274 100402 BMI 2$ 
3429 013276 000163 005020 JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
3431 013302 004737 005602 2$: JSR PC ,WAITRDY 
3432 013306 102403 BVS 99$ 
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1 22-AUG-79 08:40 START OF TESTS SEQ 0074 
013310 004757 005056 JSR PC, TIMOK 
013314 000401 BR 100$ 
013316 104400 99S: HLT 
013320 100$: 
013320 004737 005706 JSR PC,.REWIND REWIND SLAVE 
Ol Ss5e 102774 BVS 99$ ;BRANCH IF ERROR ON REWIND 


326 104000 SCOPE 


CZTEECO TMO3-TE16/TU77 DFT 
COTEEC. P11 22-AUG-79 08:4 


165442 FINISH: BIT #SW10,aSWR 
BNE 2s 
TST CHNF LG 
BNE 2s 
MOV #10. ,R0 
TYPE ,CRLF 
DEC RO 
1$ 
@4SLVNUM 
@4SLVPTR 
s- - @ASLVNUM 


@4BEGIN 
@4SLVNUM 


a4DRVNUM 

#8. .a@ADRVNUM 
END 

@ABEGIN 
@AUNTFND 


BNE 1$ 
TYPE ,E.UNIT 
JMP 


FESS 
eRee 


MOV 
BEQ 
RESET 
$SENDAD: JSR 
NOP 


HERE : 


BN 1$ 
165246 ss. @SwWR 
@ARSTRT 


013544 !MP a4 INIT 
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START OF TESTS 


;DO NOT SPACE PAPER 
71F USER SELECTED NO OUTPUT 
OR IF IN CHAIN MODE 


SET LINE FEED COUNT 


4-3 NEXT SLAVE # 
AND ITS POINTER 
“BRANCH IF LAST SLAVE (7) 


;BEGIN TEST ON NEXT SLAVE 
:SET SLAVE #0 

AND INCREMENT DRIVE # 
;AND CHECK IF LAST DRIVE 


BRANCH IF A UNIT WAS FOUND 


; INCREMENT PASS COUNT 


;GET PASSCOUNT 
AND TYPE IT 


;GET ACT11 RETURN ADDRESS 
;BRANCH IF NOT ACT11 


;BRANCH IF CHAIN MODE 


;BRANCH IF NOT CONTINOUS LOOP 
;RESTART 


RESTART 


SEQ 0075 
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CZTEEC.P11 22-AUG-79 08:40 START OF TESTS SEQ 0076 


; SKEW TAPE TIMING TESTS 
THE FOLLOWING TESTS REQUIRE A SPECIALLY WRITTEN 800 BPI SKEW TAPE 
013550 012737 013556 SKEWTST : :MOV #TST026,@4SCPADR SET SCOPE POINTER 


ZTEST 026- SKEW TAPE SPEED TEST-FORWARD 
:THIS TEST READS 32°' OF TAPE (26400.-800. = 25600. FRAMES), THEN 
:DIVIDES TIME BY 32. 70 I te TO READ 1°* (800. FRAMES) OF TAPE. 


112737 0000 TST026: MOVB #26,a#TST 
MOV #2$.R2 :SET RETURN PC FROM TIMER 
PC, .REWIND [REWIND SLAVE 
99$ [BRANCH IF ERROR ON REWIND 
#NORM11, TC(RS) ‘SET 800 BPI 
Al CS2(R5) ‘ INHIBIT BUS ADDRESS INCREMENT 
SREAD 32°' OF TAPE-FORWARD 


;FRAME COUNT 

;SET ‘GO" BIT 
032765 075027 $ #HRDERR,ERIRS) ;BRANCH IF ANY HARD ERROR BIT SETS 
001024 99$ ; 


022710 001440 #800. , (RO) :WAIT FOR FIRST 800 FRAMES 
101371 1$ 4 ‘TO BE READ 


004737 004730 PC, TIMON TURN TIMER ON 
013622 : a#10$, (RO) ;WAIT FOR READING TO FINISH 


3$ 
005020 TIMER(R3) :GO TO TIMER & RETURN VIA R2 


000005 : #5 RO :DIVIDE TIME BY 32. 
: RO 


4$ 
005544 PC,RHINIT INIT DRIVE 
005056 A ce CHECK TIME 


013710 99$: 
013712 100$: 


: TEST 027-SKEW TAPE SPEED TEST~REVERSE 
sTHIS TEST READS FORWARD -. (32000. FRAMES) OF TAPE, THEN READS REVERSE 
32°" (26400.-800. 5600. FRAMES) OF TAPE. THE TIME IS THEN DIVIDED BY 
332. TO GET TIME TO READ i? °800. FRAMES) OF TAPE. 
013714 000027 001126 TST027: MOVB #27 ,@ATSTNUM 
0 MO} 7 SET ha ‘ FROM TIMER 


#3$,R2 
PC, .REWIND REWIND S 
99$ BRANCH IF ERROR ON REWIND 
#NORM11,TC(R5) 


000032 

000010 #BAI, cs2iR5) 
R3,a4TMC ;READ FORWARD 32000. FRAMES 

:WORD COUNT 


i sFRAME COUNT 
013762 ‘ ;READ FORWARD 
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CZTEEC.P11 22-AUG-79 08:40 START OF TESTS SEQ 0077 


013764 005215 (R5) ;SET *GO" BIT 
032711 : #ERR, (R1) ;BRANCH IF ERROR BITS SETS 
001051 BNE ; 


023710 a#10$, (RO) 
101372 1$ 

004737 PC ,RHINIT : INIT DRIVE 

004737 J PC ,DELAY WAIT FOR TAPE MOTION TO STOP 
052765 00001 {INHIBIT BUS ores INCRENENT 
004337 4 3, a4TMCMD SREAD REVERSE 32 TAPE 
016674 RDBUF sREAD BUFFER 

177777 WOR, WORD COUNT 

063440 


FRAME COUNT 
000076 WOR ;READ REVERSE 
005215 ;SET *GO* BIT 


44 075027 : MHRDERR ,ER(RS) zsEXIT TEST IF ERROR BIT SETS 
BNE 99$ 


1024 
014046 022710 001440 #800. , (RO) WAIT FOR FIRST 800 FRAMES 
014052 101371 é 2s :TO BE READ 


014054 004737 004730 PC,TIMON ; TURN TIMER ON 
014030 : : a#11$, (RO) _ gWAIT FOR ALL FRAMES TO BE READ 


4 
005020 TIMER(R3) :GO TO TIMER & RETURN VIA R2 
000005 : #5 RO :DIVIDE TIME BY 32. 
F RO 


5$ 
005544 PC ,RHINIT 
005056 PC, TIMOK 
100$ 


014114 

014116 
005706 PC, .REWIND ;REWIND SLAVE 

014126 99$ ‘BRANCH IF ERROR ON REWIND 


014130 013330 @4F INISH 





CZTEECO atl 3 eh of DFT 
CZTEEC P11 08:4 


Seccaranscesers 


BERES 


3625 


22-AUG-79 


051505 


MACY11 30A(1052) 
PROGRAM ME 


tbe 


; OPERA 
M.NAM: 


1.REG: 


I1.DRVS: 


I.SLVS: 


1.DRV: 


N 6 
22-AUG-79 09:00 PAGE 78 
MESSAGES 


PROGRAM MESSAGES 


. SBTTL 
TOR INSTRUCTIONS 


ASCII 


-ASCIZ 


-ASCIZ 


: .ASCIZ 


-ASCIZ 


-ASCIZ 


-ASC1Z 


ASCII 


-ASCIZ 


<CR><LF>* TMO3=TE16/TU77 DRIVE FUNCTION TIMER (CZTEECO)’;++8 


<CR><LF>"TYPE <CR> TO TERMINATE RESPONSE & “C TO RESTART" 


<CR><LF>"END OF PASS ° 


<CR><LF>"*HARDWARE SWR IN USE*<CR><LF> 


<CR><LF>"REMOVE TMDP FROM SLAVE 0. CLEAR LOC. 40.° 


<CR><LF>'TYPE FIRST ADDRESS OF CONTROLLER * 


Z%TVPE TMO3 DRIVE #'S TO BE TESTED: ALL % 


"FOR TMO3 DRIVE * 


%0- TYPE SLAVE #°S TO BE TESTED: ALL % 


SEQ 0078 


8 
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Pil 2-AUG-79 08:40 PROGRAM MESSAGES 


046114 
19% 1.SPD: .ASCIZ ‘SPEED TESTS? (YES/NO): NO ° 
027523 
047040 


042116 M.EOT: .ASCIZ <CR><LF>*END OF TAPE'<CR><LF> 
OFF 


ERROR MESSAGES 
E.TRP4: .ASCIZ. <CR><LF>"TRAPPED TO 4° 


°o 
7 
w 


E.NCON: .ASCIZ ‘NO CONTROLLER AT ADDRESS SPECIFIED'<CR><LF> 


RVRANS 


Ni=t-F5 


020063 *TMO3 DRIVE ° 
020105 


042526 E. : "DRIVE ° 
040514 €E.DRV: *O SLAVE ° 


052117 €E. ; *O NOT AVAILABLE FOR TES! '<CR><LF> 
046111 
04304 


0 
051505 


1] 
wn 
— 
——s 
R 


*NO TMO3-TE16/TU77 UNIT FOUND TO TEST'<CR><LF> 


ooo°co[o°o 
— as 
vw 


—t SS Fd Ln SS SS = SS Ss SS SS SS os VS YY SS SS 


*SOFT ERROR (DATA) *<CR><LF> 


"TEST # ° 
* DEVICE ERROR'<CR><LF> 


NERKGEGERBASASS 


*CS1°<HT>"WC"<HT>*BA’<HT>*FC'<HT>'CS2°<HT>"DS*<HT>"ER*<HT>"TC*<CR><LF > 


MAMA AAM AA IAM IAAI 
phe ght 
MOOrP 


laleleolelejlelejlelelelelejlolejlojejojo) 
Noe 


: .ASCIZ * OUT OF RANGE ERROR*<CR><LF> 
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CZTEEC.P11 2-AUG-79 08:4 PROGRAM MESSAGES 


01 


PoE Ke 


eASCIZ <CR><LF>"TIMER OVERFLOWED'<CR><LF> 


z 


eASCIZ <CR><LF>"TIME EXPIRED WAITING FOR RDY*<CR><LF> 


021440 £.GAP: .ASCIZ ‘ GAP # * 


5 

5 

5 

5 

5 
597 
5575 
5 

5 

5 

5 

5 

5 

5 


01 
01 
0 
0 
0 
0 
0 
0 
015310 
015316 
015324 
015332 
015336 
015344 
346 
354 
362 
370 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


; TIME DOCUMENT LINES 


025052 L.HDR1: .ASCIZ <CROKLF >  aceeeeeanaeen eee ee eee ee eee RRRRReeeeeeeReeeeeeneeeeeeeeteeeee 


** TMO3 DRIVE FUNCTION TIMES=- DRIVE # ° 


"O SLAVE # ‘ 


"SERIAL # ‘ 


* *<CR><LF>'*"<CR><LF 
*® FUNCTION'<HT><HT>* TIME <SPECIFICATION)' <HT>* TIME (ACTUAL) *<CR><LF > 


lelelelejlelolelelelelelejlojo) 
ab od od SS od ed ad ad ad ed ed ad od 


040450 
024514 

122 
036075 





CZTEECO TMO3-T 
CZTEEC.P11 


PAA AAA AIM 
SSUNE 


N 
N 
Ww 


lelelelelelelelelelelelelolelele\o) 


— Ss ss Ss SS Ss SS SS SY Ls SS YY YY YH IY 


SS 


wis 


016276 


) 
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PROGRAM MESSAGES 


2-AUG-79 08:40 


036514 


TEST DESCRIPTOR HEADERS 


101 052103 L.ACT: .ASCIZ ‘ACTUAL=" 
000 


052 020052 A.TO000: .ASCIZ ‘** INITIALIZATION ERROR® 


052111 040511 
040532 044524 
051122 


053440 » is *# WRITE FROM BOT’<HT> 


WRITE START '<HT><HT> 


WRITE SHUTDOWN’ <HT> 


WRITE SETTLEDOWN’<HT> 


READ 


READ 


READ 


READ 


READ 


READ 


READ 


TURN 


FROM BOT‘ <HT><HT> 


START '<HT><HT> 


SHUTDOWN <HT><HT> 


SE TTLEDOWN* <HT> 


REV START'<HT> 


REV SHUTDOWN’ <HT> 


REV SETTLEDOWN’<HT> 


AROUND DELAY F-R'<HT> 


AROUND DELAY R-F *<HT> 





‘ale! 
NARs 
——4 
mm 


BEERS Ae 


rete 
BERR SS eesese alee! 


Seaunue 


TMO3S-TE16/TU77 DFT 


-P11 


22-AUG-79 


047522 
042504 
026522 


SSSR 

Www 

ovy 

S==5 
N 


ERGRRRAGE 


057012 
053523 


047040 
000 
037412 


E 
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PROGRAM MESSAGES 


047125 
040514 
004506 


050101 
026505 
044040 


A.T016: .ASCIZ 
A.T017: .ASCIZ 
A.T020: .ASCIZ 
A.T021: .ASCIZ 
A.T022: .ASCIZ 
A.T023: .ASCIZ 


A.1024: .ASCIZ 


A.T025: .ASCIZ 
A.1T026: .ASCIZ 


A.T027: .ASCIZ 


L.CNTG: .ASCIZ 
L.SWR: .ASCIZ 


L.NEW: .ASCIZ 
L.QUEST: 
EVEN 
RDBUF = 
WTBUF = 
BLKW 


*"* GAP SIZE=-STOP HALF ‘<HT> 


*# GAP SIZE=START HALF *<HT> 


** GAP SIZE-INTERRECORD*<HT> 


** GAP CONSISTANCY*<HT> 


** DATA TIME-8008P] *<HT> 


** DATA TIME-16008PI *<HT> 


** ERASE GAP TIME'<HT> 


*s WRITE FILE MARK*<HT> 


*s TAPE SPEED-FWD'<HT> 


** TAPE SPEED-REV*<HT> 


<CR><LF>**G' 
<CR><LF>' SWR=' 


* NEW= ° 
eASCIZ <CR><LF>*?*<CR><LF> 


” 128. 


SEQ 0082 
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CZTEEC.P11 22-AUG-79 08:40 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0083 

A 011556 3074 

ACCL = 1 1¢\Se 

ANGTAB 001420 13194 1759 1787 
= 000016 11104 

ASFLG § 001135 12984 2432+ 2658 2660* 

ATA == 100000 11794 

ATIME 001016 12834 1761 1789 1853* 2028 2121" 2125 2127 2159* 2163 2165 

ATIMTB 001020 12844 1831 2028* 

A.TO0O0 015701 1490 37614 

A.T001 015731 1491 37664 

A. oe 015753 1492 37708 

A.T003 015773 1493 37734 

A.T004 016015 37778 

A.TOOS 016041 1495 37814 

A.T006 016063 1496 37854 

A.T007 016102 1497 378 

A.T010 016124 1498 37914 

A.1011 016147 1499 37954 

A.T012 016171 1500 37998 

A.T013 016216 1501 38034 

A.T014 016245 1502 38074 

A.T015 016276 1503 38124 

A.T016 016327 1504 38174 

A.T017 016355 1505 38214 

A.T020 016404 1506 38254 

A.T021 016434 1507 38294 

A.T022 016457 1508 8334 

A.T023 016503 1509 38374 

A.T024 016 1510 38414 

A.T025 016552 1511 38444 

A.T026 016575 1512 38484 

A.T027 016617 1513 38524 

Al6é = 00 11354 

A17 = = 001000 11364 

BA = 11054 2377* 

BAI = 10 | 11514 3500 3538 3553 
BEGIN 007442 26284 3456 3461 
001411 13154 1981 

BKSLSH 001405 13134 1880 
T= 000002 11664 2310 
BP 1200= 12084 
BP1556= 000400 12094 
1800= 001000 12104 
BPTVEC= 000014 10874 
CDM11 = 000320 12074 
CHKDRV 006714 2491 2495 25064 
CHKSLV 007224 2541 2561 25754 
CHNFLG 006372 24354 2440* 2448 2476 2661 3444 3480 
CH7 = 010000 12024 
R = 000040 11534 
CNTRLA= 000001 12264 1915 
CNTRLC= 000003 12274 1887 
CNTRLG= 000007 12284 §=1921 
CNTRLO= 000017 12324 1904 
CNTRLU= 000025 12334 1882 
CNVDEC 003234 17004 
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CZTEEC.P11 22-AUG-79 08:40 CROSS REFERENCE TABLE <= USER SYMBOLS 


~S 


2265* 3538* 3553* 
17304 
2983 3552 


3232* 
2519 2608 


Ne 
RERTS 


26U1* 2622+ 3458* 3459 
2535 2578 2 


N 


2312 2316 


¥Qe 


Se ss SS WIND & PS SW OO VW Ma 
o 
Nm 
z= 


1895 
34634 


OPIS HKHLHLLEKWO-OnwnN 


Ow? 2 Ss a 


g 
Sa ’Oeeeeserere 


ONO 


3508 3561 


2016* 2024 2470" = =2521* 2524 2528* 2610 
2312 2815 2841 2847 2920 2950 2956 3050 3320 


2616 
2616* 


36904 


: 
1 
1 
1 
1 
3 
1 
1 
1 
1 
1 
1 
1 
2 
é 
1 
1 
2 
1 
1 
2 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
1 
1 
1 
1 
1 
1 
3 
1 
1 
2 
1 
1 
1 
1 
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C 
CZTEEC.P11 22-AUG-79 08:40 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0085 
E.NAVA 015011 2519* 2520 2608* 36744 
E.NCON 014712 2466 
E.NDRV 014757 2518 36674 
E.NSLV 014773 2609 36704 
E.SFT 015113 1964 36 
E.TIME 015275 2280 37084 
E.TIMO 015250 2087 37044 
E.TRPG 0146735 36578 
E.UNIT 015044 3465 36798 
FC = 11064 2021 2353* 2363* 2379" 2707 3262 
FCE = 000 11894 1195 
FINISH 013330 34424 3585 
FMT == 20 11854 1195 
FPEVEC= 244 10964 
FRMCNT= 177400 12234 2328 2338 2348 2918 3011 
FWDSPC 23534 
001124 12894 1778 1792 2160 3272* 3278* 3279 
GAPDEL 001014 12824 2687* 2696* 3239 
005166 21434 3277 
GAPTBL ab ittee 3252 3274 3283 
GTIMTB 0022 14714 1782 1785 2163 2165 
GTSWR 002526 154 1924 2674 
HERE 013514 3473 34798 
HLT = 1044 12174 2088 2129 2167 2757 2784 2804 2830 2863 2885 2907 2936 2971 
2997 3028 3065 3073 3099 3129 3153 3181 3213 3299 3339 3376 3408 
3436 3526 3579 
HRDERR= 075027 11954 3508 3561 
HT = 000011 12294 1319 3695 3746 3766 3770 3773 3777 3781 3785 3788 3791 3795 
cars 03 3807 3812 3817 3821 3825 3829 3833 3837 3841 3844 3848 
IDB = 000010 11684 
IE = 000100 11334 
ILF = 000001 11814 1195 
ILR = 2 11824 1195 
I 001272 13114 1551 1804 1871 2419* 2656 2480 2549 2666 
INCVAE= 000100 11864 
INIT 006274 1222 1266 1890 1913 24184 2467 3466 3487 
IOTVEC= 000020 10884 
= 000100 11544 
ITCNT 001125 12904 1832 2026 2029* 2034 2042* 27118 
I1.DRV 014553 2546* 36404 
I1.DRVS 014464 247, 3 
I1.REG 014417 2451 
I.REM 014344 2445 36154 
I1.SLVS 014534 2547 36374 
I 14620 2664 36474 
LF = 12 12304 1312 3591 3599 3608 3611 3615 3623 3652 3657 3660 3674 3679 
3686 3692 3695 3700 3704 3708 3718 3745 3746 3857 3858 3862 
L.ACT 015671 1760 1788 375 7a 
L.CNTG 016641 3857# 
L.DRV. 015530 2743* 7384 
L.HDR1 015346 2740 7184 
L.HDR2 015463 2745 37314 
L.HDR3 915574 2753 37454 
L.NEW 016655 1549 38604 
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L.QUES 016665 38624 
L.RNG 015661 1753 1781 37554 
L.SER 015562 2751 37434 
L.SiLv (015542 2744% 37408 
L.SWR 16646 1546 38584 
L.TE16 015546 2748 37414 
L.TU77 015554 2750 37424 
MCPE = 020000 11398 
MDPE = 000400 11564 
MMVEC = 000250 10974 
MOL = 010000 11764 
MR = 000024 11124 2057 2059 2064 2078 2093 
MXF = 001000 11574 
M.EOP 014275 3468 36084 
M.EOT 014653 2285 36524 
M.HSWR 014314 1920 36114 
M.NAM 014134 2284 2447 2450* 35914 
NAMPTR 002364 14904 1857 2732 
NED = 010000 11604 
NEF = 004000 1191@ 1195 
NEM = 004000 11594 
NOP = 11204 
NORM11= 001700 12064 2270 3310 3499 3537 
NSG = 11884 
OCTALO 001122 12884 1554 1805 2459 
ODIGIT 001152 13064 1671 1690 1711 1725 2387 2414 
OPI = 02 11934 1195 
OR = 000. 11554 
osc = 0001 11984 2057 2059 2064 2078 2093 
OSCTIM 001012 12814 2107 2145 2686* 2695* 
OUTBUF = 006274 12224 
T 003452 17764 §=1950 

OUTSPC 003356 17484 1861 1953 
PARVEC= 000114 10944 
PAT = 000020 11524 
PEFLRC= 000200 11874 

= 000040 11704 
PE1600= 002300 12114 1957 3349 
PFVEC = 000024 10894 1240 

= 002000 11584 
FIP = 020000 11774 2316 
PIRQ = 177772 10754 
PIRVEC= 000240 10954 
PRGFLG 001131 12944 2431* 2485* 2516 2543 2554* 2560 2585 2605 
PSCNT 001134 12974 2030 2433* 3467* 3469 
PSEL = 002 11374 
PSW = 177776 10734 
PUBLIS 003652 18294 2041 

= 016674 23 2346 3502 3540 3555 38654 
RDFWD = 70 11314 2339 3505 3543 
RDREV = 76 11324 2349 3558 
RDSW 002634 15794 1589 1591* 
RDY = 000200 11344 
READ 006006 23354 2871 2893 2915 2945 3116 3168 3253 3258 
RESVEC= 000010 10844 
REVRD 006024 23454 2984 3008 3039 3086 3110 3140 3163 3196 3200 3244 
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eeer 22654 2303 2679 3385 3522 


2655* 3452* 3454 


6 

284 
74a 
55a 
784 
798 
104 
144 
864 
184 
174 
264 
27a 
014 
714 
404 
714 


2681 


1919* 1923* 
24398 
2439 


OoOnNonM 
= 2839 
aeFy 


33 


Ss rag 
axeaet 


on 
SEVee 


2256* 2269* 2270* 
3499*  3537* 


ek kk ig kt tt ot 2 
BERN 
= 
& 


ry 


00 
005020 


005030 
005044 





« 
CZTEECO TMO3-TE16/TU77 DFT MACY11 30A(1052) 22-AUG-79 09:00 PAGE 89 
CZTEEC.P11 22-AUG-79 08:40 CROSS REFERENCE TABLE == USER SYMBOLS 


TIMERT 004774 
ooh 
336 


$261 


Fe 


23778 


I SS Ss SS SPQ OS OH OH - 3 

BSRESSSSAS 
CeseeeTe 

2 Vae & 


2122 2704* 2835* 
3079* 3104* 3228* 


ws 


MVINVNVNNMNNN 
enact dines * 


RARAGASS 


WAG 
oon 


Ne aaah ahahe ob anes os 
N 


—y 
VeLEy 


Wwn0o 
wma 


3 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
: 
2 
2 
1 


Yin sown 


002656 
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£85 


We ws 
mn OwuU 

ES eB RSES 
gseee 


SI™N 
wo 
t 


SSEZ Bos LET ERCE 


“ate 


3 
3 
2 
1 
1 
1 
1 
1 
1 
1 
2 
3 
1 
2 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


12494 12514 12624 12654 1267# 12704 
13204 15784 1615 1840 


2173 
3346 3383 3438 3497 3535 
2144 
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10374 
10344 
1040# 
10314 


- ABS. 017274 


ERRORS DETECTED: 0 
DSKZ:CZTEEC.BIN, DSKZ:CZ2TEEC.SEQ/CRF/SOL=DSKZ:CZTEAC.SML/ML ,DSKM:CZTEEC.P11 
RUN-TIME: 14 23 2 SECONDS 


RUN-TIME RATIO: 236/40=5.8 
CORE USED: 8K (15 PAGES) 





